/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / prim / mouse.elc.z / mouse.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 33 37 3a 34 34 20 31 | 39 39 38 0a 3b 3b 3b 20 |:37:44 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 70 72 69 6d |s-20.3/l|isp/prim|
|000000a0| 2f 6d 6f 75 73 65 2e 65 | 6c 0a 3b 3b 3b 20 65 6d |/mouse.e|l.;;; em|
|000000b0| 61 63 73 20 76 65 72 73 | 69 6f 6e 20 32 30 2e 34 |acs vers|ion 20.4|
|000000c0| 20 22 45 6d 65 72 61 6c | 64 22 20 58 45 6d 61 63 | "Emeral|d" XEmac|
|000000d0| 73 20 20 4c 75 63 69 64 | 2e 0a 3b 3b 3b 20 62 79 |s  Lucid|..;;; by|
|000000e0| 74 65 63 6f 6d 70 20 76 | 65 72 73 69 6f 6e 20 32 |tecomp v|ersion 2|
|000000f0| 2e 32 35 20 58 45 6d 61 | 63 73 3b 20 32 32 2d 4d |.25 XEma|cs; 22-M|
|00000100| 61 72 2d 39 36 2e 0a 3b | 3b 3b 20 6f 70 74 69 6d |ar-96..;|;; optim|
|00000110| 69 7a 61 74 69 6f 6e 20 | 69 73 20 6f 6e 2e 0a 3b |ization |is on..;|
|00000120| 3b 3b 20 74 68 69 73 20 | 66 69 6c 65 20 75 73 65 |;; this |file use|
|00000130| 73 20 6f 70 63 6f 64 65 | 73 20 77 68 69 63 68 20 |s opcode|s which |
|00000140| 64 6f 20 6e 6f 74 20 65 | 78 69 73 74 20 69 6e 20 |do not e|xist in |
|00000150| 45 6d 61 63 73 20 31 39 | 2e 0a 0a 28 69 66 20 28 |Emacs 19|...(if (|
|00000160| 61 6e 64 20 28 62 6f 75 | 6e 64 70 20 27 65 6d 61 |and (bou|ndp 'ema|
|00000170| 63 73 2d 76 65 72 73 69 | 6f 6e 29 0a 09 20 28 6f |cs-versi|on).. (o|
|00000180| 72 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |r (and (|boundp '|
|00000190| 65 70 6f 63 68 3a 3a 76 | 65 72 73 69 6f 6e 29 20 |epoch::v|ersion) |
|000001a0| 65 70 6f 63 68 3a 3a 76 | 65 72 73 69 6f 6e 29 0a |epoch::v|ersion).|
|000001b0| 09 20 20 20 20 20 28 73 | 74 72 69 6e 67 2d 6c 65 |.     (s|tring-le|
|000001c0| 73 73 70 20 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |ssp emac|s-versio|
|000001d0| 6e 20 22 32 30 22 29 29 | 29 0a 20 20 20 20 28 65 |n "20"))|).    (e|
|000001e0| 72 72 6f 72 20 22 60 6d | 6f 75 73 65 2e 65 6c 27 |rror "`m|ouse.el'|
|000001f0| 20 77 61 73 20 63 6f 6d | 70 69 6c 65 64 20 66 6f | was com|piled fo|
|00000200| 72 20 45 6d 61 63 73 20 | 32 30 22 29 29 0a 0a 28 |r Emacs |20"))..(|
|00000210| 6f 72 20 28 62 6f 75 6e | 64 70 20 27 63 75 72 72 |or (boun|dp 'curr|
|00000220| 65 6e 74 2d 6c 6f 61 64 | 2d 6c 69 73 74 29 20 28 |ent-load|-list) (|
|00000230| 73 65 74 71 20 63 75 72 | 72 65 6e 74 2d 6c 6f 61 |setq cur|rent-loa|
|00000240| 64 2d 6c 69 73 74 20 6e | 69 6c 29 29 0a 0a 0a 28 |d-list n|il))...(|
|00000250| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 21 88 c2 |byte-cod|e "..!..|
|00000260| c3 c4 5c 22 88 c2 c5 c6 | 5c 22 88 c2 c7 c8 5c 22 |..\"....|\"....\"|
|00000270| 88 c2 c9 ca 5c 22 88 c2 | cb cc 5c 22 88 cd ce 21 |....\"..|..\"...!|
|00000280| ac 85 cd cf 21 ab 87 c2 | d0 d1 5c 22 88 aa 85 c2 |....!...|..\"....|
|00000290| d0 d2 5c 22 88 cd ce 21 | ab 8f c2 d3 d4 5c 22 88 |..\"...!|.....\".|
|000002a0| c2 d5 d4 5c 22 88 c2 d6 | d4 5c 22 88 c0 87 22 20 |...\"...|.\"..." |
|000002b0| 5b 70 72 6f 76 69 64 65 | 20 6d 6f 75 73 65 20 67 |[provide| mouse g|
|000002c0| 6c 6f 62 61 6c 2d 73 65 | 74 2d 6b 65 79 20 62 75 |lobal-se|t-key bu|
|000002d0| 74 74 6f 6e 31 20 6d 6f | 75 73 65 2d 74 72 61 63 |tton1 mo|use-trac|
|000002e0| 6b 20 28 73 68 69 66 74 | 20 62 75 74 74 6f 6e 31 |k (shift| button1|
|000002f0| 29 20 6d 6f 75 73 65 2d | 74 72 61 63 6b 2d 61 64 |) mouse-|track-ad|
|00000300| 6a 75 73 74 20 28 63 6f | 6e 74 72 6f 6c 20 62 75 |just (co|ntrol bu|
|00000310| 74 74 6f 6e 31 29 20 6d | 6f 75 73 65 2d 74 72 61 |tton1) m|ouse-tra|
|00000320| 63 6b 2d 69 6e 73 65 72 | 74 20 28 63 6f 6e 74 72 |ck-inser|t (contr|
|00000330| 6f 6c 20 73 68 69 66 74 | 20 62 75 74 74 6f 6e 31 |ol shift| button1|
|00000340| 29 20 6d 6f 75 73 65 2d | 74 72 61 63 6b 2d 64 65 |) mouse-|track-de|
|00000350| 6c 65 74 65 2d 61 6e 64 | 2d 69 6e 73 65 72 74 20 |lete-and|-insert |
|00000360| 28 6d 65 74 61 20 62 75 | 74 74 6f 6e 31 29 20 6d |(meta bu|tton1) m|
|00000370| 6f 75 73 65 2d 74 72 61 | 63 6b 2d 64 6f 2d 72 65 |ouse-tra|ck-do-re|
|00000380| 63 74 61 6e 67 6c 65 20 | 66 65 61 74 75 72 65 70 |ctangle |featurep|
|00000390| 20 6f 66 66 69 78 20 63 | 64 65 20 62 75 74 74 6f | offix c|de butto|
|000003a0| 6e 32 20 6d 6f 75 73 65 | 2d 64 72 61 67 2d 6f 72 |n2 mouse|-drag-or|
|000003b0| 2d 79 61 6e 6b 20 6d 6f | 75 73 65 2d 79 61 6e 6b |-yank mo|use-yank|
|000003c0| 20 64 72 6f 70 31 20 6d | 6f 75 73 65 2d 6f 66 66 | drop1 m|ouse-off|
|000003d0| 69 78 2d 64 72 6f 70 20 | 64 72 6f 70 32 20 64 72 |ix-drop |drop2 dr|
|000003e0| 6f 70 33 5d 20 33 29 0a | 28 63 75 73 74 6f 6d 2d |op3] 3).|(custom-|
|000003f0| 64 65 63 6c 61 72 65 2d | 76 61 72 69 61 62 6c 65 |declare-|variable|
|00000400| 20 27 6d 6f 75 73 65 2d | 74 72 61 63 6b 2d 72 65 | 'mouse-|track-re|
|00000410| 63 74 61 6e 67 6c 65 2d | 70 20 27 6e 69 6c 20 22 |ctangle-|p 'nil "|
|00000420| 2a 49 66 20 74 72 75 65 | 2c 20 74 68 65 6e 20 64 |*If true|, then d|
|00000430| 72 61 67 67 69 6e 67 20 | 6f 75 74 20 61 20 72 65 |ragging |out a re|
|00000440| 67 69 6f 6e 20 77 69 74 | 68 20 74 68 65 20 6d 6f |gion wit|h the mo|
|00000450| 75 73 65 20 73 65 6c 65 | 63 74 73 20 72 65 63 74 |use sele|cts rect|
|00000460| 61 6e 67 6c 65 73 5c 6e | 69 6e 73 74 65 61 64 20 |angles\n|instead |
|00000470| 6f 66 20 73 69 6d 70 6c | 65 20 73 74 61 72 74 2f |of simpl|e start/|
|00000480| 65 6e 64 20 72 65 67 69 | 6f 6e 73 2e 22 20 3a 74 |end regi|ons." :t|
|00000490| 79 70 65 20 27 62 6f 6f | 6c 65 61 6e 20 3a 67 72 |ype 'boo|lean :gr|
|000004a0| 6f 75 70 20 27 6d 6f 75 | 73 65 29 0a 28 63 75 73 |oup 'mou|se).(cus|
|000004b0| 74 6f 6d 2d 64 65 63 6c | 61 72 65 2d 76 61 72 69 |tom-decl|are-vari|
|000004c0| 61 62 6c 65 20 27 6d 6f | 75 73 65 2d 79 61 6e 6b |able 'mo|use-yank|
|000004d0| 2d 61 74 2d 70 6f 69 6e | 74 20 27 6e 69 6c 20 22 |-at-poin|t 'nil "|
|000004e0| 2a 49 66 20 6e 6f 6e 2d | 6e 69 6c 2c 20 74 68 65 |*If non-|nil, the|
|000004f0| 20 66 75 6e 63 74 69 6f | 6e 20 60 6d 6f 75 73 65 | functio|n `mouse|
|00000500| 2d 79 61 6e 6b 27 20 77 | 69 6c 6c 20 79 61 6e 6b |-yank' w|ill yank|
|00000510| 20 74 65 78 74 20 61 74 | 20 74 68 65 20 63 75 72 | text at| the cur|
|00000520| 73 6f 72 20 6c 6f 63 61 | 74 69 6f 6e 2e 5c 6e 4f |sor loca|tion.\nO|
|00000530| 74 68 65 72 77 69 73 65 | 2c 20 74 68 65 20 63 75 |therwise|, the cu|
|00000540| 72 73 6f 72 20 77 69 6c | 6c 20 62 65 20 6d 6f 76 |rsor wil|l be mov|
|00000550| 65 64 20 74 6f 20 74 68 | 65 20 6c 6f 63 61 74 69 |ed to th|e locati|
|00000560| 6f 6e 20 6f 66 20 74 68 | 65 20 70 6f 69 6e 74 65 |on of th|e pointe|
|00000570| 72 20 63 6c 69 63 6b 20 | 62 65 66 6f 72 65 5c 6e |r click |before\n|
|00000580| 74 65 78 74 20 69 73 20 | 69 6e 73 65 72 74 65 64 |text is |inserted|
|00000590| 2e 22 20 3a 74 79 70 65 | 20 27 62 6f 6f 6c 65 61 |." :type| 'boolea|
|000005a0| 6e 20 3a 67 72 6f 75 70 | 20 27 6d 6f 75 73 65 29 |n :group| 'mouse)|
|000005b0| 0a 23 40 37 31 20 46 75 | 6e 63 74 69 6f 6e 20 74 |.#@71 Fu|nction t|
|000005c0| 68 61 74 20 69 73 20 63 | 61 6c 6c 65 64 20 75 70 |hat is c|alled up|
|000005d0| 6f 6e 20 62 79 20 60 6d | 6f 75 73 65 2d 79 61 6e |on by `m|ouse-yan|
|000005e0| 6b 27 20 74 6f 20 61 63 | 74 75 61 6c 6c 79 20 69 |k' to ac|tually i|
|000005f0| 6e 73 65 72 74 20 74 65 | 78 74 2e 1f 0a 28 64 65 |nsert te|xt...(de|
|00000600| 66 76 61 72 20 6d 6f 75 | 73 65 2d 79 61 6e 6b 2d |fvar mou|se-yank-|
|00000610| 66 75 6e 63 74 69 6f 6e | 20 27 6d 6f 75 73 65 2d |function| 'mouse-|
|00000620| 63 6f 6e 73 6f 6c 69 64 | 61 74 65 64 2d 79 61 6e |consolid|ated-yan|
|00000630| 6b 20 28 23 24 20 2e 20 | 31 34 36 32 29 29 0a 28 |k (#$ . |1462)).(|
|00000640| 64 65 66 61 6c 69 61 73 | 20 27 6d 6f 75 73 65 2d |defalias| 'mouse-|
|00000650| 63 6f 6e 73 6f 6c 69 64 | 61 74 65 64 2d 79 61 6e |consolid|ated-yan|
|00000660| 6b 20 23 5b 6e 69 6c 20 | 22 c0 20 89 19 c2 61 ab |k #[nil |". ...a.|
|00000670| 84 c3 20 aa 8b 09 c4 61 | ab 84 c5 20 aa 82 c5 20 |.. ....a|... ... |
|00000680| 29 87 22 20 5b 64 65 76 | 69 63 65 2d 74 79 70 65 |)." [dev|ice-type|
|00000690| 20 47 37 35 32 36 34 20 | 78 20 78 2d 79 61 6e 6b | G75264 |x x-yank|
|000006a0| 2d 66 75 6e 63 74 69 6f | 6e 20 74 74 79 20 79 61 |-functio|n tty ya|
|000006b0| 6e 6b 5d 20 33 20 6e 69 | 6c 20 6e 69 6c 5d 29 0a |nk] 3 ni|l nil]).|
|000006c0| 23 40 33 38 20 53 65 6c | 65 63 74 20 45 6d 61 63 |#@38 Sel|ect Emac|
|000006d0| 73 20 77 69 6e 64 6f 77 | 20 74 68 65 20 6d 6f 75 |s window| the mou|
|000006e0| 73 65 20 69 73 20 6f 6e | 2e 1f 0a 28 64 65 66 61 |se is on|...(defa|
|000006f0| 6c 69 61 73 20 27 6d 6f | 75 73 65 2d 73 65 6c 65 |lias 'mo|use-sele|
|00000700| 63 74 20 23 5b 6e 69 6c | 20 22 c0 87 22 20 5b 6e |ct #[nil| ".." [n|
|00000710| 69 6c 5d 20 31 20 28 23 | 24 20 2e 20 31 37 33 33 |il] 1 (#|$ . 1733|
|00000720| 29 20 22 40 22 5d 29 0a | 23 40 34 32 20 44 65 6c |) "@"]).|#@42 Del|
|00000730| 65 74 65 20 74 68 65 20 | 45 6d 61 63 73 20 77 69 |ete the |Emacs wi|
|00000740| 6e 64 6f 77 20 74 68 65 | 20 6d 6f 75 73 65 20 69 |ndow the| mouse i|
|00000750| 73 20 6f 6e 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |s on...(|defalias|
|00000760| 20 27 6d 6f 75 73 65 2d | 64 65 6c 65 74 65 2d 77 | 'mouse-|delete-w|
|00000770| 69 6e 64 6f 77 20 23 5b | 6e 69 6c 20 22 c0 20 87 |indow #[|nil ". .|
|00000780| 22 20 5b 64 65 6c 65 74 | 65 2d 77 69 6e 64 6f 77 |" [delet|e-window|
|00000790| 5d 20 31 20 28 23 24 20 | 2e 20 31 38 33 37 29 20 |] 1 (#$ |. 1837) |
|000007a0| 22 40 22 5d 29 0a 23 40 | 36 39 20 53 65 6c 65 63 |"@"]).#@|69 Selec|
|000007b0| 74 20 45 6d 61 63 73 20 | 77 69 6e 64 6f 77 20 6d |t Emacs |window m|
|000007c0| 6f 75 73 65 20 69 73 20 | 6f 6e 2c 20 74 68 65 6e |ouse is |on, then|
|000007d0| 20 6b 69 6c 6c 20 61 6c | 6c 20 6f 74 68 65 72 20 | kill al|l other |
|000007e0| 45 6d 61 63 73 20 77 69 | 6e 64 6f 77 73 2e 1f 0a |Emacs wi|ndows...|
|000007f0| 28 64 65 66 61 6c 69 61 | 73 20 27 6d 6f 75 73 65 |(defalia|s 'mouse|
|00000800| 2d 6b 65 65 70 2d 6f 6e | 65 2d 77 69 6e 64 6f 77 |-keep-on|e-window|
|00000810| 20 23 5b 6e 69 6c 20 22 | c0 20 87 22 20 5b 64 65 | #[nil "|. ." [de|
|00000820| 6c 65 74 65 2d 6f 74 68 | 65 72 2d 77 69 6e 64 6f |lete-oth|er-windo|
|00000830| 77 73 5d 20 31 20 28 23 | 24 20 2e 20 31 39 36 33 |ws] 1 (#|$ . 1963|
|00000840| 29 20 22 40 22 5d 29 0a | 23 40 36 38 20 53 65 6c |) "@"]).|#@68 Sel|
|00000850| 65 63 74 20 45 6d 61 63 | 73 20 77 69 6e 64 6f 77 |ect Emac|s window|
|00000860| 20 6d 6f 75 73 65 20 69 | 73 20 6f 6e 2c 20 74 68 | mouse i|s on, th|
|00000870| 65 6e 20 73 70 6c 69 74 | 20 69 74 20 76 65 72 74 |en split| it vert|
|00000880| 69 63 61 6c 6c 79 20 69 | 6e 20 68 61 6c 66 2e 1f |ically i|n half..|
|00000890| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 6d 6f 75 73 |.(defali|as 'mous|
|000008a0| 65 2d 73 65 6c 65 63 74 | 2d 61 6e 64 2d 73 70 6c |e-select|-and-spl|
|000008b0| 69 74 20 23 5b 6e 69 6c | 20 22 c0 c1 21 87 22 20 |it #[nil| "..!." |
|000008c0| 5b 73 70 6c 69 74 2d 77 | 69 6e 64 6f 77 2d 76 65 |[split-w|indow-ve|
|000008d0| 72 74 69 63 61 6c 6c 79 | 20 6e 69 6c 5d 20 32 20 |rtically| nil] 2 |
|000008e0| 28 23 24 20 2e 20 32 31 | 32 35 29 20 22 40 22 5d |(#$ . 21|25) "@"]|
|000008f0| 29 0a 23 40 36 38 20 53 | 65 6c 65 63 74 20 45 6d |).#@68 S|elect Em|
|00000900| 61 63 73 20 77 69 6e 64 | 6f 77 20 6d 6f 75 73 65 |acs wind|ow mouse|
|00000910| 20 69 73 20 6f 6e 2c 20 | 61 6e 64 20 6d 6f 76 65 | is on, |and move|
|00000920| 20 70 6f 69 6e 74 20 74 | 6f 20 6d 6f 75 73 65 20 | point t|o mouse |
|00000930| 70 6f 73 69 74 69 6f 6e | 2e 1f 0a 28 64 65 66 61 |position|...(defa|
|00000940| 6c 69 61 73 20 27 6d 6f | 75 73 65 2d 73 65 74 2d |lias 'mo|use-set-|
|00000950| 70 6f 69 6e 74 20 23 5b | 28 65 76 65 6e 74 29 20 |point #[|(event) |
|00000960| 22 c0 09 21 c2 09 21 c3 | 09 21 1c 1d 89 1e 06 ac |"..!..!.|.!......|
|00000970| 84 c7 c8 21 88 c9 0e 06 | 21 88 0d ab 8d 0d ca 56 |...!....|!......V|
|00000980| ab 88 0d 64 5e 65 5d 62 | aa 8e 0c ad 8b 0c ca 56 |...d^e]b|.......V|
|00000990| ad 86 0c 64 5e 65 5d 62 | 2b 87 22 20 5b 65 76 65 |...d^e]b|+." [eve|
|000009a0| 6e 74 2d 77 69 6e 64 6f | 77 20 65 76 65 6e 74 20 |nt-windo|w event |
|000009b0| 65 76 65 6e 74 2d 70 6f | 69 6e 74 20 65 76 65 6e |event-po|int even|
|000009c0| 74 2d 63 6c 6f 73 65 73 | 74 2d 70 6f 69 6e 74 20 |t-closes|t-point |
|000009d0| 63 6c 6f 73 65 2d 70 6f | 73 20 70 6f 73 20 77 69 |close-po|s pos wi|
|000009e0| 6e 64 6f 77 20 65 72 72 | 6f 72 20 22 6e 6f 74 20 |ndow err|or "not |
|000009f0| 69 6e 20 61 20 77 69 6e | 64 6f 77 22 20 73 65 6c |in a win|dow" sel|
|00000a00| 65 63 74 2d 77 69 6e 64 | 6f 77 20 30 5d 20 35 20 |ect-wind|ow 0] 5 |
|00000a10| 28 23 24 20 2e 20 32 32 | 39 35 29 20 22 40 65 22 |(#$ . 22|95) "@e"|
|00000a20| 5d 29 0a 23 40 31 38 32 | 20 50 61 73 74 65 20 74 |]).#@182| Paste t|
|00000a30| 65 78 74 20 77 69 74 68 | 20 74 68 65 20 6d 6f 75 |ext with| the mou|
|00000a40| 73 65 2e 0a 49 66 20 74 | 68 65 20 76 61 72 69 61 |se..If t|he varia|
|00000a50| 62 6c 65 20 60 6d 6f 75 | 73 65 2d 79 61 6e 6b 2d |ble `mou|se-yank-|
|00000a60| 61 74 2d 70 6f 69 6e 74 | 27 20 69 73 20 6e 69 6c |at-point|' is nil|
|00000a70| 2c 20 74 68 65 6e 20 70 | 61 73 74 69 6e 67 20 6f |, then p|asting o|
|00000a80| 63 63 75 72 73 20 61 74 | 20 74 68 65 0a 6c 6f 63 |ccurs at| the.loc|
|00000a90| 61 74 69 6f 6e 20 6f 66 | 20 74 68 65 20 63 6c 69 |ation of| the cli|
|00000aa0| 63 6b 3b 20 6f 74 68 65 | 72 77 69 73 65 2c 20 70 |ck; othe|rwise, p|
|00000ab0| 61 73 74 69 6e 67 20 6f | 63 63 75 72 73 20 61 74 |asting o|ccurs at|
|00000ac0| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 63 75 72 | the cur|rent cur|
|00000ad0| 73 6f 72 0a 6c 6f 63 61 | 74 69 6f 6e 2e 1f 0a 28 |sor.loca|tion...(|
|00000ae0| 64 65 66 61 6c 69 61 73 | 20 27 6d 6f 75 73 65 2d |defalias| 'mouse-|
|00000af0| 79 61 6e 6b 20 23 5b 28 | 65 76 65 6e 74 29 20 22 |yank #[(|event) "|
|00000b00| 08 ac 84 c1 5c 6e 21 88 | 0b 20 87 22 20 5b 6d 6f |....\n!.|. ." [mo|
|00000b10| 75 73 65 2d 79 61 6e 6b | 2d 61 74 2d 70 6f 69 6e |use-yank|-at-poin|
|00000b20| 74 20 6d 6f 75 73 65 2d | 73 65 74 2d 70 6f 69 6e |t mouse-|set-poin|
|00000b30| 74 20 65 76 65 6e 74 20 | 6d 6f 75 73 65 2d 79 61 |t event |mouse-ya|
|00000b40| 6e 6b 2d 66 75 6e 63 74 | 69 6f 6e 5d 20 32 20 28 |nk-funct|ion] 2 (|
|00000b50| 23 24 20 2e 20 32 36 30 | 31 29 20 22 65 22 5d 29 |#$ . 260|1) "e"])|
|00000b60| 0a 23 40 31 30 36 20 52 | 65 74 75 72 6e 73 20 6e |.#@106 R|eturns n|
|00000b70| 6f 6e 2d 6e 69 6c 20 69 | 66 20 74 68 65 20 62 75 |on-nil i|f the bu|
|00000b80| 74 74 6f 6e 20 65 76 65 | 6e 74 20 69 73 20 77 69 |tton eve|nt is wi|
|00000b90| 74 68 69 6e 20 74 68 65 | 20 62 6f 75 6e 64 73 20 |thin the| bounds |
|00000ba0| 6f 66 20 74 68 65 20 70 | 72 69 6d 61 72 79 0a 73 |of the p|rimary.s|
|00000bb0| 65 6c 65 63 74 69 6f 6e | 2d 65 78 74 65 6e 74 2c |election|-extent,|
|00000bc0| 20 6e 69 6c 20 6f 74 68 | 65 72 77 69 73 65 2e 1f | nil oth|erwise..|
|00000bd0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 63 6c 69 63 |.(defali|as 'clic|
|00000be0| 6b 2d 69 6e 73 69 64 65 | 2d 65 78 74 65 6e 74 2d |k-inside|-extent-|
|00000bf0| 70 20 23 5b 28 63 6c 69 | 63 6b 20 65 78 74 65 6e |p #[(cli|ck exten|
|00000c00| 74 29 20 22 c0 09 21 c2 | 09 21 1b 89 1c ad a0 0b |t) "..!.|.!......|
|00000c10| ad 9d 0d ad 9a c6 0c 21 | c7 0d 21 61 ad 91 c8 0d |.......!|..!a....|
|00000c20| 21 ad 8c 0b c8 0d 21 56 | ad 85 c9 0d 21 0b 56 2a |!.....!V|....!.V*|
|00000c30| 87 22 20 5b 65 76 65 6e | 74 2d 77 69 6e 64 6f 77 |." [even|t-window|
|00000c40| 20 63 6c 69 63 6b 20 65 | 76 65 6e 74 2d 70 6f 69 | click e|vent-poi|
|00000c50| 6e 74 20 65 70 6e 74 20 | 65 77 69 6e 20 65 78 74 |nt epnt |ewin ext|
|00000c60| 65 6e 74 20 77 69 6e 64 | 6f 77 2d 62 75 66 66 65 |ent wind|ow-buffe|
|00000c70| 72 20 65 78 74 65 6e 74 | 2d 6f 62 6a 65 63 74 20 |r extent|-object |
|00000c80| 65 78 74 65 6e 74 2d 73 | 74 61 72 74 2d 70 6f 73 |extent-s|tart-pos|
|00000c90| 69 74 69 6f 6e 20 65 78 | 74 65 6e 74 2d 65 6e 64 |ition ex|tent-end|
|00000ca0| 2d 70 6f 73 69 74 69 6f | 6e 5d 20 34 20 28 23 24 |-positio|n] 4 (#$|
|00000cb0| 20 2e 20 32 39 31 39 29 | 5d 29 0a 28 64 65 66 61 | . 2919)|]).(defa|
|00000cc0| 6c 69 61 73 20 27 63 6c | 69 63 6b 2d 69 6e 73 69 |lias 'cl|ick-insi|
|00000cd0| 64 65 2d 73 65 6c 65 63 | 74 69 6f 6e 2d 70 20 23 |de-selec|tion-p #|
|00000ce0| 5b 28 63 6c 69 63 6b 29 | 20 22 c0 09 5c 6e 5c 22 |[(click)| "..\n\"|
|00000cf0| ae 84 c0 09 0b 5c 22 87 | 22 20 5b 63 6c 69 63 6b |.....\".|" [click|
|00000d00| 2d 69 6e 73 69 64 65 2d | 65 78 74 65 6e 74 2d 70 |-inside-|extent-p|
|00000d10| 20 63 6c 69 63 6b 20 70 | 72 69 6d 61 72 79 2d 73 | click p|rimary-s|
|00000d20| 65 6c 65 63 74 69 6f 6e | 2d 65 78 74 65 6e 74 20 |election|-extent |
|00000d30| 7a 6d 61 63 73 2d 72 65 | 67 69 6f 6e 2d 65 78 74 |zmacs-re|gion-ext|
|00000d40| 65 6e 74 5d 20 33 5d 29 | 0a 23 40 31 31 33 20 52 |ent] 3])|.#@113 R|
|00000d50| 65 74 75 72 6e 73 20 6e | 6f 6e 2d 6e 69 6c 20 69 |eturns n|on-nil i|
|00000d60| 66 20 74 68 65 20 70 6f | 69 6e 74 20 69 73 20 77 |f the po|int is w|
|00000d70| 69 74 68 69 6e 20 6f 72 | 20 6a 75 73 74 20 61 66 |ithin or| just af|
|00000d80| 74 65 72 20 74 68 65 20 | 62 6f 75 6e 64 73 20 6f |ter the |bounds o|
|00000d90| 66 20 74 68 65 0a 70 72 | 69 6d 61 72 79 20 73 65 |f the.pr|imary se|
|00000da0| 6c 65 63 74 69 6f 6e 2d | 65 78 74 65 6e 74 2c 20 |lection-|extent, |
|00000db0| 6e 69 6c 20 6f 74 68 65 | 72 77 69 73 65 2e 1f 0a |nil othe|rwise...|
|00000dc0| 28 64 65 66 61 6c 69 61 | 73 20 27 70 6f 69 6e 74 |(defalia|s 'point|
|00000dd0| 2d 69 6e 73 69 64 65 2d | 65 78 74 65 6e 74 2d 70 |-inside-|extent-p|
|00000de0| 20 23 5b 28 65 78 74 65 | 6e 74 29 20 22 08 ad 93 | #[(exte|nt) "...|
|00000df0| 70 c1 08 21 61 ad 8c 60 | c2 08 21 56 ad 85 c3 08 |p..!a..`|..!V....|
|00000e00| 21 60 59 87 22 20 5b 65 | 78 74 65 6e 74 20 65 78 |!`Y." [e|xtent ex|
|00000e10| 74 65 6e 74 2d 6f 62 6a | 65 63 74 20 65 78 74 65 |tent-obj|ect exte|
|00000e20| 6e 74 2d 73 74 61 72 74 | 2d 70 6f 73 69 74 69 6f |nt-start|-positio|
|00000e30| 6e 20 65 78 74 65 6e 74 | 2d 65 6e 64 2d 70 6f 73 |n extent|-end-pos|
|00000e40| 69 74 69 6f 6e 5d 20 33 | 20 28 23 24 20 2e 20 33 |ition] 3| (#$ . 3|
|00000e50| 34 30 37 29 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |407)]).(|defalias|
|00000e60| 20 27 70 6f 69 6e 74 2d | 69 6e 73 69 64 65 2d 73 | 'point-|inside-s|
|00000e70| 65 6c 65 63 74 69 6f 6e | 2d 70 20 23 5b 6e 69 6c |election|-p #[nil|
|00000e80| 20 22 c0 09 21 ae 83 c0 | 5c 6e 21 87 22 20 5b 70 | "..!...|\n!." [p|
|00000e90| 6f 69 6e 74 2d 69 6e 73 | 69 64 65 2d 65 78 74 65 |oint-ins|ide-exte|
|00000ea0| 6e 74 2d 70 20 70 72 69 | 6d 61 72 79 2d 73 65 6c |nt-p pri|mary-sel|
|00000eb0| 65 63 74 69 6f 6e 2d 65 | 78 74 65 6e 74 20 7a 6d |ection-e|xtent zm|
|00000ec0| 61 63 73 2d 72 65 67 69 | 6f 6e 2d 65 78 74 65 6e |acs-regi|on-exten|
|00000ed0| 74 5d 20 32 5d 29 0a 23 | 40 32 34 30 20 45 69 74 |t] 2]).#|@240 Eit|
|00000ee0| 68 65 72 20 64 72 61 67 | 20 6f 72 20 70 61 73 74 |her drag| or past|
|00000ef0| 65 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 73 65 |e the cu|rrent se|
|00000f00| 6c 65 63 74 69 6f 6e 2e | 20 20 49 66 20 74 68 65 |lection.|  If the|
|00000f10| 20 76 61 72 69 61 62 6c | 65 0a 20 60 6d 6f 75 73 | variabl|e. `mous|
|00000f20| 65 2d 79 61 6e 6b 2d 61 | 74 2d 70 6f 69 6e 74 27 |e-yank-a|t-point'|
|00000f30| 20 69 73 20 6e 6f 6e 2d | 6e 69 6c 2c 20 74 68 65 | is non-|nil, the|
|00000f40| 6e 20 6d 6f 76 65 73 20 | 74 68 65 20 63 75 72 73 |n moves |the curs|
|00000f50| 6f 72 20 74 6f 20 74 68 | 65 20 6c 6f 63 61 74 69 |or to th|e locati|
|00000f60| 6f 6e 20 6f 66 0a 20 74 | 68 65 20 63 6c 69 63 6b |on of. t|he click|
|00000f70| 20 62 65 66 6f 72 65 20 | 70 61 73 74 69 6e 67 2e | before |pasting.|
|00000f80| 0a 20 54 68 69 73 20 66 | 75 6e 63 74 69 6f 6e 73 |. This f|unctions|
|00000f90| 20 68 61 73 20 74 6f 20 | 62 65 20 69 6d 70 72 6f | has to |be impro|
|00000fa0| 76 65 64 2e 20 55 6e 74 | 69 6c 20 6e 6f 77 20 69 |ved. Unt|il now i|
|00000fb0| 74 20 69 73 20 6a 75 73 | 74 20 61 20 28 77 6f 72 |t is jus|t a (wor|
|00000fc0| 6b 69 6e 67 29 20 74 65 | 73 74 2e 1f 0a 28 64 65 |king) te|st...(de|
|00000fd0| 66 61 6c 69 61 73 20 27 | 6d 6f 75 73 65 2d 64 72 |falias '|mouse-dr|
|00000fe0| 61 67 2d 6f 72 2d 79 61 | 6e 6b 20 23 5b 28 65 76 |ag-or-ya|nk #[(ev|
|00000ff0| 65 6e 74 29 20 22 c0 09 | 5c 6e 5c 22 ab a0 c3 c4 |ent) "..|\n\"....|
|00001000| 21 ab 8a c5 09 c6 5c 6e | 21 c7 5c 6e 21 23 87 c3 |!.....\n|!.\n!#..|
|00001010| c8 21 ab 89 c9 c6 5c 6e | 21 c7 5c 6e 21 5c 22 87 |.!....\n|!.\n!\".|
|00001020| 0e 5c 6e 87 0e 0b ac 84 | cc 09 21 88 0e 0d 20 87 |.\n.....|..!... .|
|00001030| 22 20 5b 63 6c 69 63 6b | 2d 69 6e 73 69 64 65 2d |" [click|-inside-|
|00001040| 65 78 74 65 6e 74 2d 70 | 20 65 76 65 6e 74 20 7a |extent-p| event z|
|00001050| 6d 61 63 73 2d 72 65 67 | 69 6f 6e 2d 65 78 74 65 |macs-reg|ion-exte|
|00001060| 6e 74 20 66 65 61 74 75 | 72 65 70 20 6f 66 66 69 |nt featu|rep offi|
|00001070| 78 20 6f 66 66 69 78 2d | 73 74 61 72 74 2d 64 72 |x offix-|start-dr|
|00001080| 61 67 2d 72 65 67 69 6f | 6e 20 65 78 74 65 6e 74 |ag-regio|n extent|
|00001090| 2d 73 74 61 72 74 2d 70 | 6f 73 69 74 69 6f 6e 20 |-start-p|osition |
|000010a0| 65 78 74 65 6e 74 2d 65 | 6e 64 2d 70 6f 73 69 74 |extent-e|nd-posit|
|000010b0| 69 6f 6e 20 63 64 65 20 | 63 64 65 2d 73 74 61 72 |ion cde |cde-star|
|000010c0| 74 2d 64 72 61 67 20 64 | 69 6e 67 20 6d 6f 75 73 |t-drag d|ing mous|
|000010d0| 65 2d 79 61 6e 6b 2d 61 | 74 2d 70 6f 69 6e 74 20 |e-yank-a|t-point |
|000010e0| 6d 6f 75 73 65 2d 73 65 | 74 2d 70 6f 69 6e 74 20 |mouse-se|t-point |
|000010f0| 6d 6f 75 73 65 2d 79 61 | 6e 6b 2d 66 75 6e 63 74 |mouse-ya|nk-funct|
|00001100| 69 6f 6e 5d 20 35 20 28 | 23 24 20 2e 20 33 38 30 |ion] 5 (|#$ . 380|
|00001110| 35 29 20 22 65 22 5d 29 | 0a 23 40 31 36 39 20 44 |5) "e"])|.#@169 D|
|00001120| 6f 20 73 6f 6d 65 74 68 | 69 6e 67 20 77 69 74 68 |o someth|ing with|
|00001130| 20 61 6e 20 4f 66 66 69 | 58 20 64 72 6f 70 20 65 | an Offi|X drop e|
|00001140| 76 65 6e 74 2e 20 49 6e | 73 65 72 74 73 20 54 65 |vent. In|serts Te|
|00001150| 78 74 20 64 72 6f 70 73 | 20 61 6e 64 0a 20 65 78 |xt drops| and. ex|
|00001160| 65 63 75 74 65 73 20 61 | 70 70 72 6f 70 72 69 61 |ecutes a|ppropria|
|00001170| 74 65 20 63 6f 6d 6d 61 | 6e 64 73 20 66 6f 72 20 |te comma|nds for |
|00001180| 73 70 65 63 69 66 69 63 | 20 64 72 6f 70 73 2e 0a |specific| drops..|
|00001190| 20 54 65 78 74 20 64 72 | 6f 70 73 20 66 6f 6c 6c | Text dr|ops foll|
|000011a0| 6f 77 20 74 68 65 20 60 | 6d 6f 75 73 65 2d 79 61 |ow the `|mouse-ya|
|000011b0| 6e 6b 2d 61 74 2d 70 6f | 69 6e 74 27 20 76 61 72 |nk-at-po|int' var|
|000011c0| 69 61 62 6c 65 2e 1f 0a | 28 64 65 66 61 6c 69 61 |iable...|(defalia|
|000011d0| 73 20 27 6d 6f 75 73 65 | 2d 6f 66 66 69 78 2d 64 |s 'mouse|-offix-d|
|000011e0| 72 6f 70 20 23 5b 28 65 | 76 65 6e 74 29 20 22 c0 |rop #[(e|vent) ".|
|000011f0| 09 21 40 c0 09 21 41 40 | c2 09 21 1b 1c 89 1d c6 |.!@..!A@|..!.....|
|00001200| 55 ab 9c 0e 07 1e 08 c9 | 16 07 ca cb 0c 21 c9 0b |U.......|.....!..|
|00001210| 23 88 cc 0b 21 88 0e 08 | 89 16 07 29 82 c7 00 0d |#...!...|...)....|
|00001220| cd 55 ab a7 0e 07 1e 08 | c9 16 07 0c c9 61 ac 8f |.U......|.....a..|
|00001230| ca cb 0c 40 21 c9 0b 23 | 88 0c 41 89 14 aa 6d cc |...@!..#|..A...m.|
|00001240| 0b 21 88 0e 08 89 16 07 | 29 aa eb 0d ce 55 ab 8c |.!......|)....U..|
|00001250| 0e 0f ac 84 d0 09 21 88 | 0c 63 aa da 0d d1 55 ab |......!.|.c....U.|
|00001260| 85 d2 0c 21 aa d0 0d d3 | 55 ac 85 0d d4 55 ab 85 |...!....|U....U..|
|00001270| d2 0c 21 aa c1 0d d5 55 | ab 86 0e 16 0c 21 aa b6 |..!....U|.....!..|
|00001280| 0d d7 55 ab 98 d8 d9 21 | 89 1e 1a 71 88 ca 0e 1a |..U....!|...q....|
|00001290| c9 0b 23 88 0c 63 88 cc | 0b 21 29 aa 99 d8 db 21 |..#..c..|.!)....!|
|000012a0| 89 1e 1a 71 88 ca 0e 1a | c9 0b 23 88 0c 63 88 dc |...q....|..#..c..|
|000012b0| 20 88 cc 0b 21 29 2b 87 | 22 20 5b 65 76 65 6e 74 | ...!)+.|" [event|
|000012c0| 2d 64 72 61 67 2d 61 6e | 64 2d 64 72 6f 70 2d 64 |-drag-an|d-drop-d|
|000012d0| 61 74 61 20 65 76 65 6e | 74 20 65 76 65 6e 74 2d |ata even|t event-|
|000012e0| 63 68 61 6e 6e 65 6c 20 | 66 72 61 6d 65 20 64 61 |channel |frame da|
|000012f0| 74 61 20 74 79 70 65 20 | 32 20 70 6f 70 2d 75 70 |ta type |2 pop-up|
|00001300| 2d 77 69 6e 64 6f 77 73 | 20 78 20 6e 69 6c 20 70 |-windows| x nil p|
|00001310| 6f 70 2d 74 6f 2d 62 75 | 66 66 65 72 20 66 69 6e |op-to-bu|ffer fin|
|00001320| 64 2d 66 69 6c 65 2d 6e | 6f 73 65 6c 65 63 74 20 |d-file-n|oselect |
|00001330| 6d 61 6b 65 2d 66 72 61 | 6d 65 2d 76 69 73 69 62 |make-fra|me-visib|
|00001340| 6c 65 20 33 20 34 20 6d | 6f 75 73 65 2d 79 61 6e |le 3 4 m|ouse-yan|
|00001350| 6b 2d 61 74 2d 70 6f 69 | 6e 74 20 6d 6f 75 73 65 |k-at-poi|nt mouse|
|00001360| 2d 73 65 74 2d 70 6f 69 | 6e 74 20 35 20 64 69 72 |-set-poi|nt 5 dir|
|00001370| 65 64 20 36 20 37 20 38 | 20 62 72 6f 77 73 65 2d |ed 6 7 8| browse-|
|00001380| 75 72 6c 2d 62 72 6f 77 | 73 65 72 2d 66 75 6e 63 |url-brow|ser-func|
|00001390| 74 69 6f 6e 20 39 20 67 | 65 6e 65 72 61 74 65 2d |tion 9 g|enerate-|
|000013a0| 6e 65 77 2d 62 75 66 66 | 65 72 20 22 44 6e 64 4d |new-buff|er "DndM|
|000013b0| 49 4d 45 22 20 62 75 66 | 20 22 44 6e 64 52 61 77 |IME" buf| "DndRaw|
|000013c0| 44 61 74 61 22 20 68 65 | 78 6c 69 66 79 2d 62 75 |Data" he|xlify-bu|
|000013d0| 66 66 65 72 5d 20 35 20 | 28 23 24 20 2e 20 34 33 |ffer] 5 |(#$ . 43|
|000013e0| 38 33 29 20 22 65 22 5d | 29 0a 23 40 37 37 32 20 |83) "e"]|).#@772 |
|000013f0| 45 76 61 6c 75 61 74 65 | 20 74 68 65 20 73 65 78 |Evaluate| the sex|
|00001400| 70 20 75 6e 64 65 72 20 | 74 68 65 20 6d 6f 75 73 |p under |the mous|
|00001410| 65 2e 20 20 55 73 75 61 | 6c 6c 79 2c 20 74 68 69 |e.  Usua|lly, thi|
|00001420| 73 20 69 73 20 74 68 65 | 20 6c 61 73 74 20 73 65 |s is the| last se|
|00001430| 78 70 20 62 65 66 6f 72 | 65 0a 74 68 65 20 63 6c |xp befor|e.the cl|
|00001440| 69 63 6b 2c 20 62 75 74 | 20 69 66 20 79 6f 75 20 |ick, but| if you |
|00001450| 63 6c 69 63 6b 20 6f 6e | 20 61 20 6c 65 66 74 20 |click on| a left |
|00001460| 70 61 72 65 6e 2c 20 74 | 68 65 6e 20 69 74 20 69 |paren, t|hen it i|
|00001470| 73 20 74 68 65 20 73 65 | 78 70 20 62 65 67 69 6e |s the se|xp begin|
|00001480| 6e 69 6e 67 0a 77 69 74 | 68 20 74 68 65 20 70 61 |ning.wit|h the pa|
|00001490| 72 65 6e 20 74 68 61 74 | 20 69 73 20 65 76 61 6c |ren that| is eval|
|000014a0| 75 61 74 65 64 2e 20 20 | 41 6c 73 6f 2c 20 73 69 |uated.  |Also, si|
|000014b0| 6e 63 65 20 73 74 72 69 | 6e 67 73 20 65 76 61 6c |nce stri|ngs eval|
|000014c0| 75 61 74 65 20 74 6f 20 | 74 68 65 6d 73 65 6c 76 |uate to |themselv|
|000014d0| 65 73 2c 0a 74 68 65 79 | 27 72 65 20 66 65 64 20 |es,.they|'re fed |
|000014e0| 74 6f 20 72 65 2d 73 65 | 61 72 63 68 2d 66 6f 72 |to re-se|arch-for|
|000014f0| 77 61 72 64 20 61 6e 64 | 20 74 68 65 20 6d 61 74 |ward and| the mat|
|00001500| 63 68 65 64 20 72 65 67 | 69 6f 6e 20 69 73 20 68 |ched reg|ion is h|
|00001510| 69 67 68 6c 69 67 68 74 | 65 64 20 75 6e 74 69 6c |ighlight|ed until|
|00001520| 0a 74 68 65 20 6d 6f 75 | 73 65 20 62 75 74 74 6f |.the mou|se butto|
|00001530| 6e 20 69 73 20 72 65 6c | 65 61 73 65 64 2e 0a 0a |n is rel|eased...|
|00001540| 50 65 72 68 61 70 73 20 | 74 68 65 20 6d 6f 73 74 |Perhaps |the most|
|00001550| 20 75 73 65 66 75 6c 20 | 74 68 69 6e 67 20 61 62 | useful |thing ab|
|00001560| 6f 75 74 20 74 68 69 73 | 20 66 75 6e 63 74 69 6f |out this| functio|
|00001570| 6e 20 69 73 20 74 68 61 | 74 20 74 68 65 20 65 76 |n is tha|t the ev|
|00001580| 61 6c 75 61 74 69 6f 6e | 20 6f 66 0a 74 68 65 20 |aluation| of.the |
|00001590| 65 78 70 72 65 73 73 69 | 6f 6e 20 77 68 69 63 68 |expressi|on which|
|000015a0| 20 69 73 20 63 6c 69 63 | 6b 65 64 20 75 70 6f 6e | is clic|ked upon|
|000015b0| 20 69 73 20 72 65 6c 61 | 74 69 76 65 20 6e 6f 74 | is rela|tive not|
|000015c0| 20 74 6f 20 74 68 65 20 | 77 69 6e 64 6f 77 20 77 | to the |window w|
|000015d0| 68 65 72 65 20 79 6f 75 | 0a 63 6c 69 63 6b 2c 20 |here you|.click, |
|000015e0| 62 75 74 20 74 6f 20 74 | 68 65 20 63 75 72 72 65 |but to t|he curre|
|000015f0| 6e 74 20 77 69 6e 64 6f | 77 20 61 6e 64 20 74 68 |nt windo|w and th|
|00001600| 65 20 63 75 72 72 65 6e | 74 20 70 6f 73 69 74 69 |e curren|t positi|
|00001610| 6f 6e 20 6f 66 20 70 6f | 69 6e 74 2e 20 20 54 68 |on of po|int.  Th|
|00001620| 75 73 2c 0a 79 6f 75 20 | 63 61 6e 20 75 73 65 20 |us,.you |can use |
|00001630| 60 6d 6f 75 73 65 2d 65 | 76 61 6c 2d 73 65 78 70 |`mouse-e|val-sexp|
|00001640| 27 20 74 6f 20 69 6e 74 | 65 72 61 63 74 69 76 65 |' to int|eractive|
|00001650| 6c 79 20 74 65 73 74 20 | 63 6f 64 65 20 74 68 61 |ly test |code tha|
|00001660| 74 20 61 63 74 73 20 75 | 70 6f 6e 20 61 0a 62 75 |t acts u|pon a.bu|
|00001670| 66 66 65 72 2e 2e 2e 73 | 6f 6d 65 74 68 69 6e 67 |ffer...s|omething|
|00001680| 20 79 6f 75 20 63 61 6e | 6e 6f 74 20 64 6f 20 77 | you can|not do w|
|00001690| 69 74 68 20 74 68 65 20 | 73 74 61 6e 64 61 72 64 |ith the |standard|
|000016a0| 20 60 65 76 61 6c 2d 6c | 61 73 74 2d 73 65 78 70 | `eval-l|ast-sexp|
|000016b0| 27 20 66 75 6e 63 74 69 | 6f 6e 2e 0a 49 74 27 73 |' functi|on..It's|
|000016c0| 20 61 6c 73 6f 20 66 61 | 6e 74 61 73 74 69 63 20 | also fa|ntastic |
|000016d0| 66 6f 72 20 64 65 62 75 | 67 67 69 6e 67 20 72 65 |for debu|gging re|
|000016e0| 67 75 6c 61 72 20 65 78 | 70 72 65 73 73 69 6f 6e |gular ex|pression|
|000016f0| 73 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6d |s...(def|alias 'm|
|00001700| 6f 75 73 65 2d 65 76 61 | 6c 2d 73 65 78 70 20 23 |ouse-eva|l-sexp #|
|00001710| 5b 28 63 6c 69 63 6b 20 | 66 6f 72 63 65 2d 77 69 |[(click |force-wi|
|00001720| 6e 64 6f 77 29 20 22 c0 | 89 89 19 1a 1b c4 8b 89 |ndow) ".|........|
|00001730| 13 3b ab b5 c5 0b c0 c6 | 23 89 12 ab a0 c7 c8 94 |.;......|#.......|
|00001740| c8 95 5c 22 1e 09 ca 0e | 09 cb 5c 22 88 cc 0e 09 |..\"....|..\"....|
|00001750| cd 5c 22 88 ce 20 16 0f | d0 0e 09 21 88 29 aa 9a |.\".. ..|...!.)..|
|00001760| d1 d2 0b 5c 22 88 d3 c0 | d4 5c 22 88 aa 8e d5 d6 |...\"...|.\".....|
|00001770| 21 ab 85 d6 0b 21 aa 83 | d7 0b 21 12 d8 5c 6e 21 |!....!..|..!..\n!|
|00001780| 11 0e 19 ac 8f 09 47 da | db 20 21 58 ab 86 d1 dc |......G.|. !X....|
|00001790| 09 5c 22 aa 87 dd 90 c0 | de df 8f 91 2b 87 22 20 |.\".....|....+." |
|000017a0| 5b 6e 69 6c 20 72 65 73 | 75 6c 74 2d 73 74 72 20 |[nil res|ult-str |
|000017b0| 76 61 6c 20 65 78 70 20 | 28 28 62 79 74 65 2d 63 |val exp |((byte-c|
|000017c0| 6f 64 65 20 22 8a c0 09 | 21 88 8a c2 c3 21 ac 84 |ode "...|!....!..|
|000017d0| c4 c5 21 88 c6 c7 20 21 | 2a 87 22 20 5b 6d 6f 75 |..!... !|*." [mou|
|000017e0| 73 65 2d 73 65 74 2d 70 | 6f 69 6e 74 20 63 6c 69 |se-set-p|oint cli|
|000017f0| 63 6b 20 6c 6f 6f 6b 69 | 6e 67 2d 61 74 20 22 28 |ck looki|ng-at "(|
|00001800| 22 20 66 6f 72 77 61 72 | 64 2d 73 65 78 70 20 2d |" forwar|d-sexp -|
|00001810| 31 20 72 65 61 64 20 70 | 6f 69 6e 74 2d 6d 61 72 |1 read p|oint-mar|
|00001820| 6b 65 72 5d 20 32 29 29 | 20 72 65 2d 73 65 61 72 |ker] 2))| re-sear|
|00001830| 63 68 2d 66 6f 72 77 61 | 72 64 20 74 20 6d 61 6b |ch-forwa|rd t mak|
|00001840| 65 2d 65 78 74 65 6e 74 | 20 30 20 6f 6f 20 73 65 |e-extent| 0 oo se|
|00001850| 74 2d 65 78 74 65 6e 74 | 2d 66 61 63 65 20 68 69 |t-extent|-face hi|
|00001860| 67 68 6c 69 67 68 74 20 | 73 65 74 2d 65 78 74 65 |ghlight |set-exte|
|00001870| 6e 74 2d 70 72 69 6f 72 | 69 74 79 20 31 30 30 30 |nt-prior|ity 1000|
|00001880| 20 6e 65 78 74 2d 63 6f | 6d 6d 61 6e 64 2d 65 76 | next-co|mmand-ev|
|00001890| 65 6e 74 20 75 6e 72 65 | 61 64 2d 63 6f 6d 6d 61 |ent unre|ad-comma|
|000018a0| 6e 64 2d 65 76 65 6e 74 | 20 64 65 6c 65 74 65 2d |nd-event| delete-|
|000018b0| 65 78 74 65 6e 74 20 6d | 65 73 73 61 67 65 20 22 |extent m|essage "|
|000018c0| 52 65 67 65 78 20 5c 22 | 25 73 5c 22 20 6e 6f 74 |Regex \"|%s\" not|
|000018d0| 20 66 6f 75 6e 64 22 20 | 64 69 6e 67 20 71 75 69 | found" |ding qui|
|000018e0| 65 74 20 66 62 6f 75 6e | 64 70 20 65 76 61 6c 2d |et fboun|dp eval-|
|000018f0| 69 6e 74 65 72 61 63 74 | 69 76 65 20 65 76 61 6c |interact|ive eval|
|00001900| 20 70 72 69 6e 31 2d 74 | 6f 2d 73 74 72 69 6e 67 | prin1-t|o-string|
|00001910| 20 66 6f 72 63 65 2d 77 | 69 6e 64 6f 77 20 77 69 | force-w|indow wi|
|00001920| 6e 64 6f 77 2d 77 69 64 | 74 68 20 73 65 6c 65 63 |ndow-wid|th selec|
|00001930| 74 65 64 2d 77 69 6e 64 | 6f 77 20 22 25 73 22 20 |ted-wind|ow "%s" |
|00001940| 22 2a 4d 6f 75 73 65 2d | 45 76 61 6c 2a 22 20 28 |"*Mouse-|Eval*" (|
|00001950| 70 70 72 69 6e 74 20 76 | 61 6c 29 20 28 28 65 72 |pprint v|al) ((er|
|00001960| 72 6f 72 20 28 70 72 69 | 6e 31 20 76 61 6c 29 29 |ror (pri|n1 val))|
|00001970| 29 5d 20 35 20 28 23 24 | 20 2e 20 35 31 30 34 29 |)] 5 (#$| . 5104)|
|00001980| 20 22 65 5c 6e 50 22 5d | 29 0a 23 40 35 36 20 50 | "e\nP"]|).#@56 P|
|00001990| 72 69 6e 74 20 74 68 65 | 20 6c 65 6e 67 74 68 20 |rint the| length |
|000019a0| 6f 66 20 74 68 65 20 6c | 69 6e 65 20 69 6e 64 69 |of the l|ine indi|
|000019b0| 63 61 74 65 64 20 62 79 | 20 74 68 65 20 70 6f 69 |cated by| the poi|
|000019c0| 6e 74 65 72 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |nter...(|defalias|
|000019d0| 20 27 6d 6f 75 73 65 2d | 6c 69 6e 65 2d 6c 65 6e | 'mouse-|line-len|
|000019e0| 67 74 68 20 23 5b 28 65 | 76 65 6e 74 29 20 22 8a |gth #[(e|vent) ".|
|000019f0| c0 09 21 88 c2 c3 c4 7f | 88 60 c5 79 88 60 5a 5c |..!.....|.`.y.`Z\|
|00001a00| 22 88 29 c6 c7 21 87 22 | 20 5b 6d 6f 75 73 65 2d |".)..!."| [mouse-|
|00001a10| 73 65 74 2d 70 6f 69 6e | 74 20 65 76 65 6e 74 20 |set-poin|t event |
|00001a20| 6d 65 73 73 61 67 65 20 | 22 4c 69 6e 65 20 6c 65 |message |"Line le|
|00001a30| 6e 67 74 68 3a 20 25 64 | 22 20 6e 69 6c 20 30 20 |ngth: %d|" nil 0 |
|00001a40| 73 6c 65 65 70 2d 66 6f | 72 20 31 5d 20 34 20 28 |sleep-fo|r 1] 4 (|
|00001a50| 23 24 20 2e 20 36 35 34 | 33 29 20 22 40 65 22 5d |#$ . 654|3) "@e"]|
|00001a60| 29 0a 23 40 31 31 32 20 | 53 65 6c 65 63 74 20 45 |).#@112 |Select E|
|00001a70| 6d 61 63 73 20 77 69 6e | 64 6f 77 20 6d 6f 75 73 |macs win|dow mous|
|00001a80| 65 20 69 73 20 6f 6e 2c | 20 61 6e 64 20 73 65 74 |e is on,| and set|
|00001a90| 20 6d 61 72 6b 20 61 74 | 20 6d 6f 75 73 65 20 70 | mark at| mouse p|
|00001aa0| 6f 73 69 74 69 6f 6e 2e | 0a 44 69 73 70 6c 61 79 |osition.|.Display|
|00001ab0| 20 63 75 72 73 6f 72 20 | 61 74 20 74 68 61 74 20 | cursor |at that |
|00001ac0| 70 6f 73 69 74 69 6f 6e | 20 66 6f 72 20 61 20 73 |position| for a s|
|00001ad0| 65 63 6f 6e 64 2e 1f 0a | 28 64 65 66 61 6c 69 61 |econd...|(defalia|
|00001ae0| 73 20 27 6d 6f 75 73 65 | 2d 73 65 74 2d 6d 61 72 |s 'mouse|-set-mar|
|00001af0| 6b 20 23 5b 28 65 76 65 | 6e 74 29 20 22 60 18 c1 |k #[(eve|nt) "`..|
|00001b00| 8e c2 0b 21 88 c4 c5 c6 | 5c 22 88 c7 c8 21 2a 87 |...!....|\"...!*.|
|00001b10| 22 20 5b 70 6f 69 6e 74 | 2d 73 61 76 65 20 28 28 |" [point|-save ((|
|00001b20| 67 6f 74 6f 2d 63 68 61 | 72 20 70 6f 69 6e 74 2d |goto-cha|r point-|
|00001b30| 73 61 76 65 29 29 20 6d | 6f 75 73 65 2d 73 65 74 |save)) m|ouse-set|
|00001b40| 2d 70 6f 69 6e 74 20 65 | 76 65 6e 74 20 70 75 73 |-point e|vent pus|
|00001b50| 68 2d 6d 61 72 6b 20 6e | 69 6c 20 74 20 73 69 74 |h-mark n|il t sit|
|00001b60| 2d 66 6f 72 20 31 5d 20 | 33 20 28 23 24 20 2e 20 |-for 1] |3 (#$ . |
|00001b70| 36 37 36 30 29 20 22 40 | 65 22 5d 29 0a 23 40 33 |6760) "@|e"]).#@3|
|00001b80| 37 20 53 63 72 6f 6c 6c | 20 70 6f 69 6e 74 20 74 |7 Scroll| point t|
|00001b90| 6f 20 74 68 65 20 6d 6f | 75 73 65 20 70 6f 73 69 |o the mo|use posi|
|00001ba0| 74 69 6f 6e 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |tion...(|defalias|
|00001bb0| 20 27 6d 6f 75 73 65 2d | 73 63 72 6f 6c 6c 20 23 | 'mouse-|scroll #|
|00001bc0| 5b 28 65 76 65 6e 74 29 | 20 22 8a c0 09 21 88 c2 |[(event)| "...!..|
|00001bd0| c3 21 88 c4 c5 09 21 21 | 29 87 22 20 5b 6d 6f 75 |.!....!!|)." [mou|
|00001be0| 73 65 2d 73 65 74 2d 70 | 6f 69 6e 74 20 65 76 65 |se-set-p|oint eve|
|00001bf0| 6e 74 20 72 65 63 65 6e | 74 65 72 20 30 20 73 63 |nt recen|ter 0 sc|
|00001c00| 72 6f 6c 6c 2d 72 69 67 | 68 74 20 65 76 65 6e 74 |roll-rig|ht event|
|00001c10| 2d 78 5d 20 33 20 28 23 | 24 20 2e 20 37 30 34 32 |-x] 3 (#|$ . 7042|
|00001c20| 29 20 22 40 65 22 5d 29 | 0a 23 40 34 32 20 44 65 |) "@e"])|.#@42 De|
|00001c30| 6c 65 74 65 20 74 68 65 | 20 63 68 61 72 20 70 6f |lete the| char po|
|00001c40| 69 6e 74 65 64 20 74 6f | 20 62 79 20 74 68 65 20 |inted to| by the |
|00001c50| 6d 6f 75 73 65 2e 1f 0a | 28 64 65 66 61 6c 69 61 |mouse...|(defalia|
|00001c60| 73 20 27 6d 6f 75 73 65 | 2d 64 65 6c 2d 63 68 61 |s 'mouse|-del-cha|
|00001c70| 72 20 23 5b 28 65 76 65 | 6e 74 29 20 22 8a c0 09 |r #[(eve|nt) "...|
|00001c80| 21 88 c2 c3 c4 5c 22 29 | 87 22 20 5b 6d 6f 75 73 |!....\")|." [mous|
|00001c90| 65 2d 73 65 74 2d 70 6f | 69 6e 74 20 65 76 65 6e |e-set-po|int even|
|00001ca0| 74 20 64 65 6c 65 74 65 | 2d 63 68 61 72 20 31 20 |t delete|-char 1 |
|00001cb0| 6e 69 6c 5d 20 33 20 28 | 23 24 20 2e 20 37 32 31 |nil] 3 (|#$ . 721|
|00001cc0| 34 29 20 22 40 65 22 5d | 29 0a 23 40 34 30 20 4b |4) "@e"]|).#@40 K|
|00001cd0| 69 6c 6c 20 74 68 65 20 | 6c 69 6e 65 20 70 6f 69 |ill the |line poi|
|00001ce0| 6e 74 65 64 20 74 6f 20 | 62 79 20 74 68 65 20 6d |nted to |by the m|
|00001cf0| 6f 75 73 65 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |ouse...(|defalias|
|00001d00| 20 27 6d 6f 75 73 65 2d | 6b 69 6c 6c 2d 6c 69 6e | 'mouse-|kill-lin|
|00001d10| 65 20 23 5b 28 65 76 65 | 6e 74 29 20 22 8a c0 09 |e #[(eve|nt) "...|
|00001d20| 21 88 c2 c3 21 29 87 22 | 20 5b 6d 6f 75 73 65 2d |!...!)."| [mouse-|
|00001d30| 73 65 74 2d 70 6f 69 6e | 74 20 65 76 65 6e 74 20 |set-poin|t event |
|00001d40| 6b 69 6c 6c 2d 6c 69 6e | 65 20 6e 69 6c 5d 20 32 |kill-lin|e nil] 2|
|00001d50| 20 28 23 24 20 2e 20 37 | 33 37 35 29 20 22 40 65 | (#$ . 7|375) "@e|
|00001d60| 22 5d 29 0a 23 40 37 31 | 20 42 75 72 79 20 74 68 |"]).#@71| Bury th|
|00001d70| 65 20 62 75 66 66 65 72 | 20 70 6f 69 6e 74 65 64 |e buffer| pointed|
|00001d80| 20 74 6f 20 62 79 20 74 | 68 65 20 6d 6f 75 73 65 | to by t|he mouse|
|00001d90| 2c 20 74 68 75 73 20 73 | 65 6c 65 63 74 69 6e 67 |, thus s|electing|
|00001da0| 20 74 68 65 20 6e 65 78 | 74 20 6f 6e 65 2e 1f 0a | the nex|t one...|
|00001db0| 28 64 65 66 61 6c 69 61 | 73 20 27 6d 6f 75 73 65 |(defalia|s 'mouse|
|00001dc0| 2d 62 75 72 79 2d 62 75 | 66 66 65 72 20 23 5b 28 |-bury-bu|ffer #[(|
|00001dd0| 65 76 65 6e 74 29 20 22 | c0 20 19 c2 8e c3 c4 0d |event) "|. ......|
|00001de0| 21 21 88 c6 20 2a 87 22 | 20 5b 73 65 6c 65 63 74 |!!.. *."| [select|
|00001df0| 65 64 2d 77 69 6e 64 6f | 77 20 73 61 76 65 2d 73 |ed-windo|w save-s|
|00001e00| 65 6c 65 63 74 65 64 2d | 77 69 6e 64 6f 77 2d 77 |elected-|window-w|
|00001e10| 69 6e 64 6f 77 20 28 28 | 62 79 74 65 2d 63 6f 64 |indow ((|byte-cod|
|00001e20| 65 20 22 c0 09 21 ab 84 | c2 09 21 88 c0 87 22 20 |e "..!..|..!..." |
|00001e30| 5b 77 69 6e 64 6f 77 2d | 6c 69 76 65 2d 70 20 73 |[window-|live-p s|
|00001e40| 61 76 65 2d 73 65 6c 65 | 63 74 65 64 2d 77 69 6e |ave-sele|cted-win|
|00001e50| 64 6f 77 2d 77 69 6e 64 | 6f 77 20 73 65 6c 65 63 |dow-wind|ow selec|
|00001e60| 74 2d 77 69 6e 64 6f 77 | 5d 20 32 29 29 20 73 65 |t-window|] 2)) se|
|00001e70| 6c 65 63 74 2d 77 69 6e | 64 6f 77 20 65 76 65 6e |lect-win|dow even|
|00001e80| 74 2d 77 69 6e 64 6f 77 | 20 65 76 65 6e 74 20 62 |t-window| event b|
|00001e90| 75 72 79 2d 62 75 66 66 | 65 72 5d 20 33 20 28 23 |ury-buff|er] 3 (#|
|00001ea0| 24 20 2e 20 37 35 32 39 | 29 20 22 65 22 5d 29 0a |$ . 7529|) "e"]).|
|00001eb0| 23 40 35 32 20 55 6e 62 | 75 72 79 20 61 6e 64 20 |#@52 Unb|ury and |
|00001ec0| 73 65 6c 65 63 74 20 74 | 68 65 20 6d 6f 73 74 20 |select t|he most |
|00001ed0| 72 65 63 65 6e 74 6c 79 | 20 62 75 72 69 65 64 20 |recently| buried |
|00001ee0| 62 75 66 66 65 72 2e 1f | 0a 28 64 65 66 61 6c 69 |buffer..|.(defali|
|00001ef0| 61 73 20 27 6d 6f 75 73 | 65 2d 75 6e 62 75 72 79 |as 'mous|e-unbury|
|00001f00| 2d 62 75 66 66 65 72 20 | 23 5b 28 65 76 65 6e 74 |-buffer |#[(event|
|00001f10| 29 20 22 c0 20 19 c2 8e | c3 c4 0d 21 21 88 c6 20 |) ". ...|...!!.. |
|00001f20| 89 1e 07 47 53 1e 08 c9 | 1e 5c 6e 0e 08 0e 07 38 |...GS...|.\n....8|
|00001f30| 16 5c 6e cb 0e 5c 6e 21 | cc 48 cd 55 3f ad 82 0e |.\n..\n!|.H.U?...|
|00001f40| 5c 6e 89 16 5c 6e ac 88 | 0e 08 53 89 16 08 aa 61 |\n..\n..|..S....a|
|00001f50| ce 0e 5c 6e 21 2d 87 22 | 20 5b 73 65 6c 65 63 74 |..\n!-."| [select|
|00001f60| 65 64 2d 77 69 6e 64 6f | 77 20 73 61 76 65 2d 73 |ed-windo|w save-s|
|00001f70| 65 6c 65 63 74 65 64 2d | 77 69 6e 64 6f 77 2d 77 |elected-|window-w|
|00001f80| 69 6e 64 6f 77 20 28 28 | 62 79 74 65 2d 63 6f 64 |indow ((|byte-cod|
|00001f90| 65 20 22 c0 09 21 ab 84 | c2 09 21 88 c0 87 22 20 |e "..!..|..!..." |
|00001fa0| 5b 77 69 6e 64 6f 77 2d | 6c 69 76 65 2d 70 20 73 |[window-|live-p s|
|00001fb0| 61 76 65 2d 73 65 6c 65 | 63 74 65 64 2d 77 69 6e |ave-sele|cted-win|
|00001fc0| 64 6f 77 2d 77 69 6e 64 | 6f 77 20 73 65 6c 65 63 |dow-wind|ow selec|
|00001fd0| 74 2d 77 69 6e 64 6f 77 | 5d 20 32 29 29 20 73 65 |t-window|] 2)) se|
|00001fe0| 6c 65 63 74 2d 77 69 6e | 64 6f 77 20 65 76 65 6e |lect-win|dow even|
|00001ff0| 74 2d 77 69 6e 64 6f 77 | 20 65 76 65 6e 74 20 62 |t-window| event b|
|00002000| 75 66 66 65 72 2d 6c 69 | 73 74 20 62 75 66 73 20 |uffer-li|st bufs |
|00002010| 65 6e 74 72 79 20 6e 69 | 6c 20 76 61 6c 20 62 75 |entry ni|l val bu|
|00002020| 66 66 65 72 2d 6e 61 6d | 65 20 30 20 3f 5c 20 20 |ffer-nam|e 0 ?\  |
|00002030| 73 77 69 74 63 68 2d 74 | 6f 2d 62 75 66 66 65 72 |switch-t|o-buffer|
|00002040| 5d 20 34 20 28 23 24 20 | 2e 20 37 38 36 31 29 20 |] 4 (#$ |. 7861) |
|00002050| 22 65 22 5d 29 0a 23 40 | 35 33 20 4e 61 72 72 6f |"e"]).#@|53 Narro|
|00002060| 77 20 77 69 6e 64 6f 77 | 20 74 6f 20 72 65 67 69 |w window| to regi|
|00002070| 6f 6e 20 62 65 74 77 65 | 65 6e 20 70 6f 69 6e 74 |on betwe|en point|
|00002080| 20 61 6e 64 20 6c 61 73 | 74 20 6d 61 72 6b 1f 0a | and las|t mark..|
|00002090| 28 64 65 66 61 6c 69 61 | 73 20 27 6e 61 72 72 6f |(defalia|s 'narro|
|000020a0| 77 2d 77 69 6e 64 6f 77 | 2d 74 6f 2d 72 65 67 69 |w-window|-to-regi|
|000020b0| 6f 6e 20 23 5b 28 6d 20 | 6e 29 20 22 8a 8c c0 20 |on #[(m |n) "... |
|000020c0| c1 20 61 ab 83 c2 20 88 | 0b 62 88 c4 c5 21 88 c0 |. a... .|.b...!..|
|000020d0| 20 c6 20 c5 55 ad 82 c1 | 20 61 3f ad 8b c7 c8 20 | . .U...| a?.... |
|000020e0| c9 0b 0e 5c 6e 5c 22 5a | 53 21 2a 87 22 20 5b 73 |...\n\"Z|S!*." [s|
|000020f0| 65 6c 65 63 74 65 64 2d | 77 69 6e 64 6f 77 20 6e |elected-|window n|
|00002100| 65 78 74 2d 77 69 6e 64 | 6f 77 20 73 70 6c 69 74 |ext-wind|ow split|
|00002110| 2d 77 69 6e 64 6f 77 20 | 6d 20 72 65 63 65 6e 74 |-window |m recent|
|00002120| 65 72 20 30 20 6d 69 6e | 69 62 75 66 66 65 72 2d |er 0 min|ibuffer-|
|00002130| 64 65 70 74 68 20 73 68 | 72 69 6e 6b 2d 77 69 6e |depth sh|rink-win|
|00002140| 64 6f 77 20 77 69 6e 64 | 6f 77 2d 68 65 69 67 68 |dow wind|ow-heigh|
|00002150| 74 20 63 6f 75 6e 74 2d | 6c 69 6e 65 73 20 6e 5d |t count-|lines n]|
|00002160| 20 35 20 28 23 24 20 2e | 20 38 32 38 33 29 20 22 | 5 (#$ .| 8283) "|
|00002170| 72 22 5d 29 0a 23 40 35 | 39 20 4e 61 72 72 6f 77 |r"]).#@5|9 Narrow|
|00002180| 20 77 69 6e 64 6f 77 20 | 74 6f 20 72 65 67 69 6f | window |to regio|
|00002190| 6e 20 62 65 74 77 65 65 | 6e 20 63 75 72 73 6f 72 |n betwee|n cursor|
|000021a0| 20 61 6e 64 20 6d 6f 75 | 73 65 20 70 6f 69 6e 74 | and mou|se point|
|000021b0| 65 72 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |er...(de|falias '|
|000021c0| 6d 6f 75 73 65 2d 77 69 | 6e 64 6f 77 2d 74 6f 2d |mouse-wi|ndow-to-|
|000021d0| 72 65 67 69 6f 6e 20 23 | 5b 28 65 76 65 6e 74 29 |region #|[(event)|
|000021e0| 20 22 60 18 c1 8e c2 0b | 21 88 c4 c5 c6 5c 22 88 | "`.....|!....\".|
|000021f0| c7 c8 21 2a 87 22 20 5b | 70 6f 69 6e 74 2d 73 61 |..!*." [|point-sa|
|00002200| 76 65 20 28 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ve ((byt|e-code "|
|00002210| 08 62 88 c1 c2 20 c3 20 | 5c 22 87 22 20 5b 70 6f |.b... . |\"." [po|
|00002220| 69 6e 74 2d 73 61 76 65 | 20 6e 61 72 72 6f 77 2d |int-save| narrow-|
|00002230| 77 69 6e 64 6f 77 2d 74 | 6f 2d 72 65 67 69 6f 6e |window-t|o-region|
|00002240| 20 72 65 67 69 6f 6e 2d | 62 65 67 69 6e 6e 69 6e | region-|beginnin|
|00002250| 67 20 72 65 67 69 6f 6e | 2d 65 6e 64 5d 20 33 29 |g region|-end] 3)|
|00002260| 29 20 6d 6f 75 73 65 2d | 73 65 74 2d 70 6f 69 6e |) mouse-|set-poin|
|00002270| 74 20 65 76 65 6e 74 20 | 70 75 73 68 2d 6d 61 72 |t event |push-mar|
|00002280| 6b 20 6e 69 6c 20 74 20 | 73 69 74 2d 66 6f 72 20 |k nil t |sit-for |
|00002290| 31 5d 20 33 20 28 23 24 | 20 2e 20 38 35 37 30 29 |1] 3 (#$| . 8570)|
|000022a0| 20 22 40 65 22 5d 29 0a | 23 40 32 30 20 44 6f 6e | "@e"]).|#@20 Don|
|000022b0| 27 74 20 64 6f 20 61 6e | 79 74 68 69 6e 67 2e 1f |'t do an|ything..|
|000022c0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 6d 6f 75 73 |.(defali|as 'mous|
|000022d0| 65 2d 69 67 6e 6f 72 65 | 20 23 5b 6e 69 6c 20 22 |e-ignore| #[nil "|
|000022e0| c0 87 22 20 5b 6e 69 6c | 5d 20 31 20 28 23 24 20 |.." [nil|] 1 (#$ |
|000022f0| 2e 20 38 38 37 37 29 20 | 6e 69 6c 5d 29 0a 23 40 |. 8877) |nil]).#@|
|00002300| 31 38 20 4a 75 6e 6b 20 | 6d 65 2c 20 70 6c 65 61 |18 Junk |me, plea|
|00002310| 73 65 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |se...(de|falias '|
|00002320| 6d 6f 75 73 65 2d 73 63 | 72 6f 6c 6c 2d 64 6f 77 |mouse-sc|roll-dow|
|00002330| 6e 20 23 5b 28 6e 6c 69 | 6e 65 73 29 20 22 c0 09 |n #[(nli|nes) "..|
|00002340| 21 87 22 20 5b 73 63 72 | 6f 6c 6c 2d 64 6f 77 6e |!." [scr|oll-down|
|00002350| 20 6e 6c 69 6e 65 73 5d | 20 32 20 28 23 24 20 2e | nlines]| 2 (#$ .|
|00002360| 20 38 39 36 33 29 20 22 | 40 70 22 5d 29 0a 23 40 | 8963) "|@p"]).#@|
|00002370| 31 38 20 4a 75 6e 6b 20 | 6d 65 2c 20 70 6c 65 61 |18 Junk |me, plea|
|00002380| 73 65 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |se...(de|falias '|
|00002390| 6d 6f 75 73 65 2d 73 63 | 72 6f 6c 6c 2d 75 70 20 |mouse-sc|roll-up |
|000023a0| 23 5b 28 6e 6c 69 6e 65 | 73 29 20 22 c0 09 21 87 |#[(nline|s) "..!.|
|000023b0| 22 20 5b 73 63 72 6f 6c | 6c 2d 75 70 20 6e 6c 69 |" [scrol|l-up nli|
|000023c0| 6e 65 73 5d 20 32 20 28 | 23 24 20 2e 20 39 30 37 |nes] 2 (|#$ . 907|
|000023d0| 35 29 20 22 40 70 22 5d | 29 0a 23 40 31 38 20 4a |5) "@p"]|).#@18 J|
|000023e0| 75 6e 6b 20 6d 65 2c 20 | 70 6c 65 61 73 65 2e 1f |unk me, |please..|
|000023f0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 6d 6f 75 73 |.(defali|as 'mous|
|00002400| 65 2d 73 63 72 6f 6c 6c | 2d 64 6f 77 6e 2d 66 75 |e-scroll|-down-fu|
|00002410| 6c 6c 20 23 5b 6e 69 6c | 20 22 c0 c1 21 87 22 20 |ll #[nil| "..!." |
|00002420| 5b 73 63 72 6f 6c 6c 2d | 64 6f 77 6e 20 6e 69 6c |[scroll-|down nil|
|00002430| 5d 20 32 20 28 23 24 20 | 2e 20 39 31 38 33 29 20 |] 2 (#$ |. 9183) |
|00002440| 22 40 22 5d 29 0a 23 40 | 31 38 20 4a 75 6e 6b 20 |"@"]).#@|18 Junk |
|00002450| 6d 65 2c 20 70 6c 65 61 | 73 65 2e 1f 0a 28 64 65 |me, plea|se...(de|
|00002460| 66 61 6c 69 61 73 20 27 | 6d 6f 75 73 65 2d 73 63 |falias '|mouse-sc|
|00002470| 72 6f 6c 6c 2d 75 70 2d | 66 75 6c 6c 20 23 5b 6e |roll-up-|full #[n|
|00002480| 69 6c 20 22 c0 c1 21 87 | 22 20 5b 73 63 72 6f 6c |il "..!.|" [scrol|
|00002490| 6c 2d 75 70 20 6e 69 6c | 5d 20 32 20 28 23 24 20 |l-up nil|] 2 (#$ |
|000024a0| 2e 20 39 32 39 31 29 20 | 22 40 22 5d 29 0a 23 40 |. 9291) |"@"]).#@|
|000024b0| 31 38 20 4a 75 6e 6b 20 | 6d 65 2c 20 70 6c 65 61 |18 Junk |me, plea|
|000024c0| 73 65 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |se...(de|falias '|
|000024d0| 6d 6f 75 73 65 2d 73 63 | 72 6f 6c 6c 2d 6d 6f 76 |mouse-sc|roll-mov|
|000024e0| 65 2d 63 75 72 73 6f 72 | 20 23 5b 28 6e 6c 69 6e |e-cursor| #[(nlin|
|000024f0| 65 73 29 20 22 c0 09 21 | 87 22 20 5b 6d 6f 76 65 |es) "..!|." [move|
|00002500| 2d 74 6f 2d 77 69 6e 64 | 6f 77 2d 6c 69 6e 65 20 |-to-wind|ow-line |
|00002510| 6e 6c 69 6e 65 73 5d 20 | 32 20 28 23 24 20 2e 20 |nlines] |2 (#$ . |
|00002520| 39 33 39 35 29 20 22 40 | 70 22 5d 29 0a 23 40 31 |9395) "@|p"]).#@1|
|00002530| 38 20 4a 75 6e 6b 20 6d | 65 2c 20 70 6c 65 61 73 |8 Junk m|e, pleas|
|00002540| 65 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6d |e...(def|alias 'm|
|00002550| 6f 75 73 65 2d 73 63 72 | 6f 6c 6c 2d 61 62 73 6f |ouse-scr|oll-abso|
|00002560| 6c 75 74 65 20 23 5b 28 | 65 76 65 6e 74 29 20 22 |lute #[(|event) "|
|00002570| c0 09 21 1a c3 09 21 1c | c5 20 1e 06 c7 c8 0e 06 |..!...!.|. ......|
|00002580| a5 5d 1e 09 0e 06 0e 09 | a5 5c 6e 5f 0c a5 0e 09 |.]......|.\n_....|
|00002590| 5f 89 1e 5c 6e 62 88 cb | cc 21 2d 87 22 20 5b 65 |_..\nb..|.!-." [e|
|000025a0| 76 65 6e 74 2d 78 20 65 | 76 65 6e 74 20 70 6f 73 |vent-x e|vent pos|
|000025b0| 69 74 69 6f 6e 20 65 76 | 65 6e 74 2d 79 20 6c 65 |ition ev|ent-y le|
|000025c0| 6e 67 74 68 20 62 75 66 | 66 65 72 2d 73 69 7a 65 |ngth buf|fer-size|
|000025d0| 20 73 69 7a 65 20 31 20 | 38 30 30 30 30 30 30 20 | size 1 |8000000 |
|000025e0| 73 63 61 6c 65 2d 66 61 | 63 74 6f 72 20 6e 65 77 |scale-fa|ctor new|
|000025f0| 70 6f 73 20 72 65 63 65 | 6e 74 65 72 20 28 34 29 |pos rece|nter (4)|
|00002600| 5d 20 34 20 28 23 24 20 | 2e 20 39 35 32 32 29 20 |] 4 (#$ |. 9522) |
|00002610| 22 40 65 22 5d 29 0a 28 | 62 79 74 65 2d 63 6f 64 |"@e"]).(|byte-cod|
|00002620| 65 20 22 c0 c1 21 ac 82 | c2 11 c1 0b 42 13 c0 c4 |e "..!..|....B...|
|00002630| 21 ac 82 c5 14 c4 0b 42 | 13 c0 87 22 20 5b 62 6f |!......B|..." [bo|
|00002640| 75 6e 64 70 20 73 63 72 | 6f 6c 6c 65 64 2d 6c 69 |undp scr|olled-li|
|00002650| 6e 65 73 20 30 20 63 75 | 72 72 65 6e 74 2d 6c 6f |nes 0 cu|rrent-lo|
|00002660| 61 64 2d 6c 69 73 74 20 | 73 63 72 6f 6c 6c 2d 73 |ad-list |scroll-s|
|00002670| 70 65 65 64 20 31 5d 20 | 32 29 0a 23 40 31 38 20 |peed 1] |2).#@18 |
|00002680| 4a 75 6e 6b 20 6d 65 2c | 20 70 6c 65 61 73 65 2e |Junk me,| please.|
|00002690| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 69 6e 63 |..(defal|ias 'inc|
|000026a0| 72 2d 73 63 72 6f 6c 6c | 2d 64 6f 77 6e 20 23 5b |r-scroll|-down #[|
|000026b0| 28 65 76 65 6e 74 29 20 | 22 c0 11 c2 0b 21 87 22 |(event) |"....!."|
|000026c0| 20 5b 30 20 73 63 72 6f | 6c 6c 65 64 2d 6c 69 6e | [0 scro|lled-lin|
|000026d0| 65 73 20 69 6e 63 72 65 | 6d 65 6e 74 61 6c 2d 73 |es incre|mental-s|
|000026e0| 63 72 6f 6c 6c 20 73 63 | 72 6f 6c 6c 2d 73 70 65 |croll sc|roll-spe|
|000026f0| 65 64 5d 20 32 20 28 23 | 24 20 2e 20 39 38 35 36 |ed] 2 (#|$ . 9856|
|00002700| 29 20 22 40 65 22 5d 29 | 0a 23 40 31 38 20 4a 75 |) "@e"])|.#@18 Ju|
|00002710| 6e 6b 20 6d 65 2c 20 70 | 6c 65 61 73 65 2e 1f 0a |nk me, p|lease...|
|00002720| 28 64 65 66 61 6c 69 61 | 73 20 27 69 6e 63 72 2d |(defalia|s 'incr-|
|00002730| 73 63 72 6f 6c 6c 2d 75 | 70 20 23 5b 28 65 76 65 |scroll-u|p #[(eve|
|00002740| 6e 74 29 20 22 c0 11 c2 | 0b 5b 21 87 22 20 5b 30 |nt) "...|.[!." [0|
|00002750| 20 73 63 72 6f 6c 6c 65 | 64 2d 6c 69 6e 65 73 20 | scrolle|d-lines |
|00002760| 69 6e 63 72 65 6d 65 6e | 74 61 6c 2d 73 63 72 6f |incremen|tal-scro|
|00002770| 6c 6c 20 73 63 72 6f 6c | 6c 2d 73 70 65 65 64 5d |ll scrol|l-speed]|
|00002780| 20 32 20 28 23 24 20 2e | 20 39 39 39 38 29 20 22 | 2 (#$ .| 9998) "|
|00002790| 40 65 22 5d 29 0a 23 40 | 31 38 20 4a 75 6e 6b 20 |@e"]).#@|18 Junk |
|000027a0| 6d 65 2c 20 70 6c 65 61 | 73 65 2e 1f 0a 28 64 65 |me, plea|se...(de|
|000027b0| 66 61 6c 69 61 73 20 27 | 69 6e 63 72 65 6d 65 6e |falias '|incremen|
|000027c0| 74 61 6c 2d 73 63 72 6f | 6c 6c 20 23 5b 28 6e 29 |tal-scro|ll #[(n)|
|000027d0| 20 22 c0 19 09 ad af c2 | 0b 21 88 c4 20 ab 98 c5 | "......|.!.. ...|
|000027e0| 20 1e 06 c7 0e 06 21 ac | 86 c8 0e 06 21 ab 82 c9 | .....!.|....!...|
|000027f0| 11 ca 0e 06 21 88 29 0e | 0b 0e 0c 5f 54 16 0c cd |....!.).|..._T...|
|00002800| 0e 0e 21 88 aa 4e 29 87 | 22 20 5b 74 20 64 6f 77 |..!..N).|" [t dow|
|00002810| 6e 20 73 69 74 2d 66 6f | 72 20 6d 6f 75 73 65 2d |n sit-fo|r mouse-|
|00002820| 74 72 61 63 6b 2d 73 63 | 72 6f 6c 6c 2d 64 65 6c |track-sc|roll-del|
|00002830| 61 79 20 69 6e 70 75 74 | 2d 70 65 6e 64 69 6e 67 |ay input|-pending|
|00002840| 2d 70 20 6e 65 78 74 2d | 63 6f 6d 6d 61 6e 64 2d |-p next-|command-|
|00002850| 65 76 65 6e 74 20 65 76 | 65 6e 74 20 62 75 74 74 |event ev|ent butt|
|00002860| 6f 6e 2d 70 72 65 73 73 | 2d 65 76 65 6e 74 2d 70 |on-press|-event-p|
|00002870| 20 62 75 74 74 6f 6e 2d | 72 65 6c 65 61 73 65 2d | button-|release-|
|00002880| 65 76 65 6e 74 2d 70 20 | 6e 69 6c 20 64 69 73 70 |event-p |nil disp|
|00002890| 61 74 63 68 2d 65 76 65 | 6e 74 20 73 63 72 6f 6c |atch-eve|nt scrol|
|000028a0| 6c 2d 73 70 65 65 64 20 | 73 63 72 6f 6c 6c 65 64 |l-speed |scrolled|
|000028b0| 2d 6c 69 6e 65 73 20 73 | 63 72 6f 6c 6c 2d 64 6f |-lines s|croll-do|
|000028c0| 77 6e 20 6e 5d 20 32 20 | 28 23 24 20 2e 20 31 30 |wn n] 2 |(#$ . 10|
|000028d0| 31 33 39 29 5d 29 0a 23 | 40 31 38 20 4a 75 6e 6b |139)]).#|@18 Junk|
|000028e0| 20 6d 65 2c 20 70 6c 65 | 61 73 65 2e 1f 0a 28 64 | me, ple|ase...(d|
|000028f0| 65 66 61 6c 69 61 73 20 | 27 69 6e 63 72 2d 73 63 |efalias |'incr-sc|
|00002900| 72 6f 6c 6c 2d 73 74 6f | 70 20 23 5b 28 65 76 65 |roll-sto|p #[(eve|
|00002910| 6e 74 29 20 22 c0 11 c2 | c3 21 87 22 20 5b 30 20 |nt) "...|.!." [0 |
|00002920| 73 63 72 6f 6c 6c 65 64 | 2d 6c 69 6e 65 73 20 73 |scrolled|-lines s|
|00002930| 6c 65 65 70 2d 66 6f 72 | 20 31 5d 20 32 20 28 23 |leep-for| 1] 2 (#|
|00002940| 24 20 2e 20 31 30 34 36 | 30 29 20 22 40 65 22 5d |$ . 1046|0) "@e"]|
|00002950| 29 0a 23 40 31 38 20 4a | 75 6e 6b 20 6d 65 2c 20 |).#@18 J|unk me, |
|00002960| 70 6c 65 61 73 65 2e 1f | 0a 28 64 65 66 61 6c 69 |please..|.(defali|
|00002970| 61 73 20 27 6d 6f 75 73 | 65 2d 73 63 72 6f 6c 6c |as 'mous|e-scroll|
|00002980| 2d 6c 65 66 74 20 23 5b | 28 6e 63 6f 6c 75 6d 6e |-left #[|(ncolumn|
|00002990| 73 29 20 22 c0 09 21 87 | 22 20 5b 73 63 72 6f 6c |s) "..!.|" [scrol|
|000029a0| 6c 2d 6c 65 66 74 20 6e | 63 6f 6c 75 6d 6e 73 5d |l-left n|columns]|
|000029b0| 20 32 20 28 23 24 20 2e | 20 31 30 35 38 33 29 20 | 2 (#$ .| 10583) |
|000029c0| 22 40 70 22 5d 29 0a 23 | 40 31 38 20 4a 75 6e 6b |"@p"]).#|@18 Junk|
|000029d0| 20 6d 65 2c 20 70 6c 65 | 61 73 65 2e 1f 0a 28 64 | me, ple|ase...(d|
|000029e0| 65 66 61 6c 69 61 73 20 | 27 6d 6f 75 73 65 2d 73 |efalias |'mouse-s|
|000029f0| 63 72 6f 6c 6c 2d 72 69 | 67 68 74 20 23 5b 28 6e |croll-ri|ght #[(n|
|00002a00| 63 6f 6c 75 6d 6e 73 29 | 20 22 c0 09 21 87 22 20 |columns)| "..!." |
|00002a10| 5b 73 63 72 6f 6c 6c 2d | 72 69 67 68 74 20 6e 63 |[scroll-|right nc|
|00002a20| 6f 6c 75 6d 6e 73 5d 20 | 32 20 28 23 24 20 2e 20 |olumns] |2 (#$ . |
|00002a30| 31 30 37 30 30 29 20 22 | 40 70 22 5d 29 0a 23 40 |10700) "|@p"]).#@|
|00002a40| 31 38 20 4a 75 6e 6b 20 | 6d 65 2c 20 70 6c 65 61 |18 Junk |me, plea|
|00002a50| 73 65 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |se...(de|falias '|
|00002a60| 6d 6f 75 73 65 2d 73 63 | 72 6f 6c 6c 2d 6c 65 66 |mouse-sc|roll-lef|
|00002a70| 74 2d 66 75 6c 6c 20 23 | 5b 6e 69 6c 20 22 c0 c1 |t-full #|[nil "..|
|00002a80| 21 87 22 20 5b 73 63 72 | 6f 6c 6c 2d 6c 65 66 74 |!." [scr|oll-left|
|00002a90| 20 6e 69 6c 5d 20 32 20 | 28 23 24 20 2e 20 31 30 | nil] 2 |(#$ . 10|
|00002aa0| 38 31 39 29 20 22 40 22 | 5d 29 0a 23 40 31 38 20 |819) "@"|]).#@18 |
|00002ab0| 4a 75 6e 6b 20 6d 65 2c | 20 70 6c 65 61 73 65 2e |Junk me,| please.|
|00002ac0| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 6d 6f 75 |..(defal|ias 'mou|
|00002ad0| 73 65 2d 73 63 72 6f 6c | 6c 2d 72 69 67 68 74 2d |se-scrol|l-right-|
|00002ae0| 66 75 6c 6c 20 23 5b 6e | 69 6c 20 22 c0 c1 21 87 |full #[n|il "..!.|
|00002af0| 22 20 5b 73 63 72 6f 6c | 6c 2d 72 69 67 68 74 20 |" [scrol|l-right |
|00002b00| 6e 69 6c 5d 20 32 20 28 | 23 24 20 2e 20 31 30 39 |nil] 2 (|#$ . 109|
|00002b10| 32 38 29 20 22 40 22 5d | 29 0a 23 40 31 38 20 4a |28) "@"]|).#@18 J|
|00002b20| 75 6e 6b 20 6d 65 2c 20 | 70 6c 65 61 73 65 2e 1f |unk me, |please..|
|00002b30| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 6d 6f 75 73 |.(defali|as 'mous|
|00002b40| 65 2d 73 63 72 6f 6c 6c | 2d 6d 6f 76 65 2d 63 75 |e-scroll|-move-cu|
|00002b50| 72 73 6f 72 2d 68 6f 72 | 69 7a 6f 6e 74 61 6c 6c |rsor-hor|izontall|
|00002b60| 79 20 23 5b 28 6e 63 6f | 6c 75 6d 6e 73 29 20 22 |y #[(nco|lumns) "|
|00002b70| c0 09 21 87 22 20 5b 6d | 6f 76 65 2d 74 6f 2d 63 |..!." [m|ove-to-c|
|00002b80| 6f 6c 75 6d 6e 20 6e 63 | 6f 6c 75 6d 6e 73 5d 20 |olumn nc|olumns] |
|00002b90| 32 20 28 23 24 20 2e 20 | 31 31 30 33 39 29 20 22 |2 (#$ . |11039) "|
|00002ba0| 40 70 22 5d 29 0a 23 40 | 31 38 20 4a 75 6e 6b 20 |@p"]).#@|18 Junk |
|00002bb0| 6d 65 2c 20 70 6c 65 61 | 73 65 2e 1f 0a 28 64 65 |me, plea|se...(de|
|00002bc0| 66 61 6c 69 61 73 20 27 | 6d 6f 75 73 65 2d 73 63 |falias '|mouse-sc|
|00002bd0| 72 6f 6c 6c 2d 61 62 73 | 6f 6c 75 74 65 2d 68 6f |roll-abs|olute-ho|
|00002be0| 72 69 7a 6f 6e 74 61 6c | 6c 79 20 23 5b 28 65 76 |rizontal|ly #[(ev|
|00002bf0| 65 6e 74 29 20 22 c0 c1 | 20 c2 5c 22 87 22 20 5b |ent) "..| .\"." [|
|00002c00| 73 65 74 2d 77 69 6e 64 | 6f 77 2d 68 73 63 72 6f |set-wind|ow-hscro|
|00002c10| 6c 6c 20 73 65 6c 65 63 | 74 65 64 2d 77 69 6e 64 |ll selec|ted-wind|
|00002c20| 6f 77 20 33 33 5d 20 33 | 20 28 23 24 20 2e 20 31 |ow 33] 3| (#$ . 1|
|00002c30| 31 31 37 39 29 20 22 40 | 65 22 5d 29 0a 23 40 32 |1179) "@|e"]).#@2|
|00002c40| 36 36 20 46 75 6e 63 74 | 69 6f 6e 20 63 61 6c 6c |66 Funct|ion call|
|00002c50| 65 64 20 74 6f 20 6e 6f | 72 6d 61 6c 69 7a 65 20 |ed to no|rmalize |
|00002c60| 70 6f 73 69 74 69 6f 6e | 20 6f 66 20 70 6f 69 6e |position| of poin|
|00002c70| 74 2e 0a 43 61 6c 6c 65 | 64 20 77 69 74 68 20 74 |t..Calle|d with t|
|00002c80| 77 6f 20 61 72 67 75 6d | 65 6e 74 73 3a 20 54 59 |wo argum|ents: TY|
|00002c90| 50 45 20 64 65 70 65 6e | 64 73 20 6f 6e 20 74 68 |PE depen|ds on th|
|00002ca0| 65 20 6e 75 6d 62 65 72 | 20 6f 66 20 74 69 6d 65 |e number| of time|
|00002cb0| 73 20 74 68 61 74 20 74 | 68 65 0a 6d 6f 75 73 65 |s that t|he.mouse|
|00002cc0| 20 68 61 73 20 62 65 65 | 6e 20 63 6c 69 63 6b 65 | has bee|n clicke|
|00002cd0| 64 20 61 6e 64 20 69 73 | 20 61 20 6d 65 6d 62 65 |d and is| a membe|
|00002ce0| 72 20 6f 66 20 60 64 65 | 66 61 75 6c 74 2d 6d 6f |r of `de|fault-mo|
|00002cf0| 75 73 65 2d 74 72 61 63 | 6b 2d 74 79 70 65 2d 6c |use-trac|k-type-l|
|00002d00| 69 73 74 27 2c 0a 46 4f | 52 57 41 52 44 50 20 64 |ist',.FO|RWARDP d|
|00002d10| 65 74 65 72 6d 69 6e 65 | 73 20 74 68 65 20 64 69 |etermine|s the di|
|00002d20| 72 65 63 74 69 6f 6e 20 | 69 6e 20 77 68 69 63 68 |rection |in which|
|00002d30| 20 74 68 65 20 70 6f 69 | 6e 74 20 73 68 6f 75 6c | the poi|nt shoul|
|00002d40| 64 20 62 65 20 6d 6f 76 | 65 64 2e 1f 0a 28 64 65 |d be mov|ed...(de|
|00002d50| 66 76 61 72 20 64 65 66 | 61 75 6c 74 2d 6d 6f 75 |fvar def|ault-mou|
|00002d60| 73 65 2d 74 72 61 63 6b | 2d 6e 6f 72 6d 61 6c 69 |se-track|-normali|
|00002d70| 7a 65 2d 70 6f 69 6e 74 | 2d 66 75 6e 63 74 69 6f |ze-point|-functio|
|00002d80| 6e 20 27 64 65 66 61 75 | 6c 74 2d 6d 6f 75 73 65 |n 'defau|lt-mouse|
|00002d90| 2d 74 72 61 63 6b 2d 6e | 6f 72 6d 61 6c 69 7a 65 |-track-n|ormalize|
|00002da0| 2d 70 6f 69 6e 74 20 28 | 23 24 20 2e 20 31 31 33 |-point (|#$ . 113|
|00002db0| 33 31 29 29 0a 23 40 34 | 37 34 20 46 75 6e 63 74 |31)).#@4|74 Funct|
|00002dc0| 69 6f 6e 20 6f 72 20 66 | 75 6e 63 74 69 6f 6e 73 |ion or f|unctions|
|00002dd0| 20 63 61 6c 6c 65 64 20 | 77 68 65 6e 20 74 68 65 | called |when the|
|00002de0| 20 75 73 65 72 20 70 72 | 65 73 73 65 73 20 74 68 | user pr|esses th|
|00002df0| 65 20 6d 6f 75 73 65 2e | 0a 54 68 69 73 20 68 6f |e mouse.|.This ho|
|00002e00| 6f 6b 20 69 73 20 69 6e | 76 6f 6b 65 64 20 62 79 |ok is in|voked by|
|00002e10| 20 60 6d 6f 75 73 65 2d | 74 72 61 63 6b 27 3b 20 | `mouse-|track'; |
|00002e20| 74 68 75 73 2c 20 69 74 | 20 77 69 6c 6c 20 6e 6f |thus, it| will no|
|00002e30| 74 20 62 65 20 63 61 6c | 6c 65 64 0a 66 6f 72 20 |t be cal|led.for |
|00002e40| 61 6e 79 20 62 75 74 74 | 6f 6e 73 20 77 69 74 68 |any butt|ons with|
|00002e50| 20 61 20 64 69 66 66 65 | 72 65 6e 74 20 62 69 6e | a diffe|rent bin|
|00002e60| 64 69 6e 67 2e 20 20 54 | 68 65 20 66 75 6e 63 74 |ding.  T|he funct|
|00002e70| 69 6f 6e 73 20 77 69 6c | 6c 20 62 65 0a 63 61 6c |ions wil|l be.cal|
|00002e80| 6c 65 64 20 77 69 74 68 | 20 74 77 6f 20 61 72 67 |led with| two arg|
|00002e90| 75 6d 65 6e 74 73 3a 20 | 74 68 65 20 62 75 74 74 |uments: |the butt|
|00002ea0| 6f 6e 2d 70 72 65 73 73 | 20 65 76 65 6e 74 20 61 |on-press| event a|
|00002eb0| 6e 64 20 61 20 63 6c 69 | 63 6b 0a 63 6f 75 6e 74 |nd a cli|ck.count|
|00002ec0| 20 28 73 65 65 20 60 6d | 6f 75 73 65 2d 74 72 61 | (see `m|ouse-tra|
|00002ed0| 63 6b 2d 63 6c 69 63 6b | 2d 68 6f 6f 6b 27 29 2e |ck-click|-hook').|
|00002ee0| 0a 0a 49 66 20 61 6e 79 | 20 66 75 6e 63 74 69 6f |..If any| functio|
|00002ef0| 6e 20 72 65 74 75 72 6e | 73 20 6e 6f 6e 2d 6e 69 |n return|s non-ni|
|00002f00| 6c 2c 20 74 68 65 20 72 | 65 6d 61 69 6e 69 6e 67 |l, the r|emaining|
|00002f10| 20 66 75 6e 63 74 69 6f | 6e 73 20 77 69 6c 6c 20 | functio|ns will |
|00002f20| 6e 6f 74 20 62 65 0a 63 | 61 6c 6c 65 64 2e 0a 0a |not be.c|alled...|
|00002f30| 4e 6f 74 65 20 74 68 61 | 74 20 6d 6f 73 74 20 61 |Note tha|t most a|
|00002f40| 70 70 6c 69 63 61 74 69 | 6f 6e 73 20 73 68 6f 75 |pplicati|ons shou|
|00002f50| 6c 64 20 74 61 6b 65 20 | 61 63 74 69 6f 6e 20 77 |ld take |action w|
|00002f60| 68 65 6e 20 74 68 65 20 | 6d 6f 75 73 65 20 69 73 |hen the |mouse is|
|00002f70| 0a 72 65 6c 65 61 73 65 | 64 2c 20 6e 6f 74 20 77 |.release|d, not w|
|00002f80| 68 65 6e 20 69 74 20 69 | 73 20 70 72 65 73 73 65 |hen it i|s presse|
|00002f90| 64 2e 27 1f 0a 28 64 65 | 66 76 61 72 20 6d 6f 75 |d.'..(de|fvar mou|
|00002fa0| 73 65 2d 74 72 61 63 6b | 2d 64 6f 77 6e 2d 68 6f |se-track|-down-ho|
|00002fb0| 6f 6b 20 6e 69 6c 20 28 | 23 24 20 2e 20 31 31 37 |ok nil (|#$ . 117|
|00002fc0| 30 37 29 29 0a 23 40 37 | 35 37 20 46 75 6e 63 74 |07)).#@7|57 Funct|
|00002fd0| 69 6f 6e 20 6f 72 20 66 | 75 6e 63 74 69 6f 6e 73 |ion or f|unctions|
|00002fe0| 20 63 61 6c 6c 65 64 20 | 77 68 65 6e 20 74 68 65 | called |when the|
|00002ff0| 20 75 73 65 72 20 64 72 | 61 67 73 20 74 68 65 20 | user dr|ags the |
|00003000| 6d 6f 75 73 65 2e 0a 54 | 68 69 73 20 68 6f 6f 6b |mouse..T|his hook|
|00003010| 20 69 73 20 69 6e 76 6f | 6b 65 64 20 62 79 20 60 | is invo|ked by `|
|00003020| 6d 6f 75 73 65 2d 74 72 | 61 63 6b 27 3b 20 74 68 |mouse-tr|ack'; th|
|00003030| 75 73 2c 20 69 74 20 77 | 69 6c 6c 20 6e 6f 74 20 |us, it w|ill not |
|00003040| 62 65 20 63 61 6c 6c 65 | 64 0a 66 6f 72 20 61 6e |be calle|d.for an|
|00003050| 79 20 62 75 74 74 6f 6e | 73 20 77 69 74 68 20 61 |y button|s with a|
|00003060| 20 64 69 66 66 65 72 65 | 6e 74 20 62 69 6e 64 69 | differe|nt bindi|
|00003070| 6e 67 2e 20 20 54 68 65 | 20 66 75 6e 63 74 69 6f |ng.  The| functio|
|00003080| 6e 73 20 77 69 6c 6c 20 | 62 65 0a 63 61 6c 6c 65 |ns will |be.calle|
|00003090| 64 20 77 69 74 68 20 74 | 68 72 65 65 20 61 72 67 |d with t|hree arg|
|000030a0| 75 6d 65 6e 74 73 3a 20 | 74 68 65 20 6d 6f 75 73 |uments: |the mous|
|000030b0| 65 2d 6d 6f 74 69 6f 6e | 20 65 76 65 6e 74 2c 20 |e-motion| event, |
|000030c0| 61 20 63 6c 69 63 6b 0a | 63 6f 75 6e 74 20 28 73 |a click.|count (s|
|000030d0| 65 65 20 60 6d 6f 75 73 | 65 2d 74 72 61 63 6b 2d |ee `mous|e-track-|
|000030e0| 63 6c 69 63 6b 2d 68 6f | 6f 6b 27 29 2c 20 61 6e |click-ho|ok'), an|
|000030f0| 64 20 77 68 65 74 68 65 | 72 20 74 68 65 20 63 61 |d whethe|r the ca|
|00003100| 6c 6c 20 74 6f 0a 74 68 | 69 73 20 68 6f 6f 6b 20 |ll to.th|is hook |
|00003110| 6f 63 63 75 72 72 65 64 | 20 61 73 20 61 20 72 65 |occurred| as a re|
|00003120| 73 75 6c 74 20 6f 66 20 | 61 20 64 72 61 67 20 74 |sult of |a drag t|
|00003130| 69 6d 65 6f 75 74 20 28 | 73 65 65 0a 60 6d 6f 75 |imeout (|see.`mou|
|00003140| 73 65 2d 74 72 61 63 6b | 2d 73 63 72 6f 6c 6c 2d |se-track|-scroll-|
|00003150| 64 65 6c 61 79 27 29 2e | 0a 0a 49 66 20 61 6e 79 |delay').|..If any|
|00003160| 20 66 75 6e 63 74 69 6f | 6e 20 72 65 74 75 72 6e | functio|n return|
|00003170| 73 20 6e 6f 6e 2d 6e 69 | 6c 2c 20 74 68 65 20 72 |s non-ni|l, the r|
|00003180| 65 6d 61 69 6e 69 6e 67 | 20 66 75 6e 63 74 69 6f |emaining| functio|
|00003190| 6e 73 20 77 69 6c 6c 20 | 6e 6f 74 20 62 65 0a 63 |ns will |not be.c|
|000031a0| 61 6c 6c 65 64 2e 0a 0a | 4e 6f 74 65 20 74 68 61 |alled...|Note tha|
|000031b0| 74 20 6e 6f 20 63 61 6c | 6c 73 20 74 6f 20 74 68 |t no cal|ls to th|
|000031c0| 69 73 20 66 75 6e 63 74 | 69 6f 6e 20 77 69 6c 6c |is funct|ion will|
|000031d0| 20 62 65 20 6d 61 64 65 | 20 75 6e 74 69 6c 20 74 | be made| until t|
|000031e0| 68 65 20 75 73 65 72 0a | 69 6e 69 74 69 61 74 65 |he user.|initiate|
|000031f0| 73 20 61 20 64 72 61 67 | 20 28 69 2e 65 2e 20 6d |s a drag| (i.e. m|
|00003200| 6f 76 65 73 20 74 68 65 | 20 6d 6f 75 73 65 20 6d |oves the| mouse m|
|00003210| 6f 72 65 20 74 68 61 6e | 20 61 20 63 65 72 74 61 |ore than| a certa|
|00003220| 69 6e 0a 74 68 72 65 73 | 68 6f 6c 64 20 69 6e 20 |in.thres|hold in |
|00003230| 65 69 74 68 65 72 20 74 | 68 65 20 58 20 6f 72 20 |either t|he X or |
|00003240| 74 68 65 20 59 20 64 69 | 72 65 63 74 69 6f 6e 2c |the Y di|rection,|
|00003250| 20 61 73 20 64 65 66 69 | 6e 65 64 20 62 79 0a 60 | as defi|ned by.`|
|00003260| 6d 6f 75 73 65 2d 74 72 | 61 63 6b 2d 78 2d 74 68 |mouse-tr|ack-x-th|
|00003270| 72 65 73 68 6f 6c 64 27 | 20 61 6e 64 20 60 6d 6f |reshold'| and `mo|
|00003280| 75 73 65 2d 74 72 61 63 | 6b 2d 79 2d 74 68 72 65 |use-trac|k-y-thre|
|00003290| 73 68 6f 6c 64 27 29 2e | 0a 0a 53 65 65 20 61 6c |shold').|..See al|
|000032a0| 73 6f 20 60 6d 6f 75 73 | 65 2d 74 72 61 63 6b 2d |so `mous|e-track-|
|000032b0| 64 72 61 67 2d 75 70 2d | 68 6f 6f 6b 27 2e 1f 0a |drag-up-|hook'...|
|000032c0| 28 64 65 66 76 61 72 20 | 6d 6f 75 73 65 2d 74 72 |(defvar |mouse-tr|
|000032d0| 61 63 6b 2d 64 72 61 67 | 2d 68 6f 6f 6b 20 6e 69 |ack-drag|-hook ni|
|000032e0| 6c 20 28 23 24 20 2e 20 | 31 32 32 33 35 29 29 0a |l (#$ . |12235)).|
|000032f0| 23 40 36 36 32 20 46 75 | 6e 63 74 69 6f 6e 20 6f |#@662 Fu|nction o|
|00003300| 72 20 66 75 6e 63 74 69 | 6f 6e 73 20 63 61 6c 6c |r functi|ons call|
|00003310| 65 64 20 77 68 65 6e 20 | 74 68 65 20 75 73 65 72 |ed when |the user|
|00003320| 20 66 69 6e 69 73 68 65 | 73 20 61 20 64 72 61 67 | finishe|s a drag|
|00003330| 2e 0a 54 68 69 73 20 68 | 6f 6f 6b 20 69 73 20 69 |..This h|ook is i|
|00003340| 6e 76 6f 6b 65 64 20 62 | 79 20 60 6d 6f 75 73 65 |nvoked b|y `mouse|
|00003350| 2d 74 72 61 63 6b 27 3b | 20 74 68 75 73 2c 20 69 |-track';| thus, i|
|00003360| 74 20 77 69 6c 6c 20 6e | 6f 74 20 62 65 20 63 61 |t will n|ot be ca|
|00003370| 6c 6c 65 64 0a 66 6f 72 | 20 61 6e 79 20 62 75 74 |lled.for| any but|
|00003380| 74 6f 6e 73 20 77 69 74 | 68 20 61 20 64 69 66 66 |tons wit|h a diff|
|00003390| 65 72 65 6e 74 20 62 69 | 6e 64 69 6e 67 2e 20 20 |erent bi|nding.  |
|000033a0| 54 68 65 20 66 75 6e 63 | 74 69 6f 6e 73 20 77 69 |The func|tions wi|
|000033b0| 6c 6c 20 62 65 0a 63 61 | 6c 6c 65 64 20 77 69 74 |ll be.ca|lled wit|
|000033c0| 68 20 74 77 6f 20 61 72 | 67 75 6d 65 6e 74 73 3a |h two ar|guments:|
|000033d0| 20 74 68 65 20 62 75 74 | 74 6f 6e 2d 70 72 65 73 | the but|ton-pres|
|000033e0| 73 20 65 76 65 6e 74 20 | 61 6e 64 20 61 20 63 6c |s event |and a cl|
|000033f0| 69 63 6b 0a 63 6f 75 6e | 74 20 28 73 65 65 20 60 |ick.coun|t (see `|
|00003400| 6d 6f 75 73 65 2d 74 72 | 61 63 6b 2d 63 6c 69 63 |mouse-tr|ack-clic|
|00003410| 6b 2d 68 6f 6f 6b 27 29 | 2e 0a 0a 49 66 20 61 6e |k-hook')|...If an|
|00003420| 79 20 66 75 6e 63 74 69 | 6f 6e 20 72 65 74 75 72 |y functi|on retur|
|00003430| 6e 73 20 6e 6f 6e 2d 6e | 69 6c 2c 20 74 68 65 20 |ns non-n|il, the |
|00003440| 72 65 6d 61 69 6e 69 6e | 67 20 66 75 6e 63 74 69 |remainin|g functi|
|00003450| 6f 6e 73 20 77 69 6c 6c | 20 6e 6f 74 20 62 65 0a |ons will| not be.|
|00003460| 63 61 6c 6c 65 64 2e 0a | 0a 4e 6f 74 65 20 74 68 |called..|.Note th|
|00003470| 61 74 20 74 68 69 73 20 | 68 6f 6f 6b 20 77 69 6c |at this |hook wil|
|00003480| 6c 20 6e 6f 74 20 62 65 | 20 69 6e 76 6f 6b 65 64 |l not be| invoked|
|00003490| 20 75 6e 6c 65 73 73 20 | 74 68 65 20 75 73 65 72 | unless |the user|
|000034a0| 20 68 61 73 0a 69 6e 69 | 74 69 61 74 65 64 20 61 | has.ini|tiated a|
|000034b0| 20 64 72 61 67 2c 20 69 | 2e 65 2e 20 6d 6f 76 65 | drag, i|.e. move|
|000034c0| 64 20 74 68 65 20 6d 6f | 75 73 65 20 6d 6f 72 65 |d the mo|use more|
|000034d0| 20 74 68 61 6e 20 61 20 | 63 65 72 74 61 69 6e 20 | than a |certain |
|000034e0| 74 68 72 65 73 68 6f 6c | 64 0a 28 73 65 65 20 60 |threshol|d.(see `|
|000034f0| 6d 6f 75 73 65 2d 74 72 | 61 63 6b 2d 64 72 61 67 |mouse-tr|ack-drag|
|00003500| 2d 68 6f 6f 6b 27 29 2e | 20 20 57 68 65 6e 20 74 |-hook').|  When t|
|00003510| 68 69 73 20 66 75 6e 63 | 74 69 6f 6e 20 69 73 20 |his func|tion is |
|00003520| 69 6e 76 6f 6b 65 64 2c | 0a 60 6d 6f 75 73 65 2d |invoked,|.`mouse-|
|00003530| 74 72 61 63 6b 2d 64 72 | 61 67 2d 68 6f 6f 6b 27 |track-dr|ag-hook'|
|00003540| 20 77 69 6c 6c 20 68 61 | 76 65 20 62 65 65 6e 20 | will ha|ve been |
|00003550| 69 6e 76 6f 6b 65 64 20 | 61 74 20 6c 65 61 73 74 |invoked |at least|
|00003560| 20 6f 6e 63 65 2e 0a 0a | 53 65 65 20 61 6c 73 6f | once...|See also|
|00003570| 20 60 6d 6f 75 73 65 2d | 74 72 61 63 6b 2d 63 6c | `mouse-|track-cl|
|00003580| 69 63 6b 2d 68 6f 6f 6b | 27 2e 1f 0a 28 64 65 66 |ick-hook|'...(def|
|00003590| 76 61 72 20 6d 6f 75 73 | 65 2d 74 72 61 63 6b 2d |var mous|e-track-|
|000035a0| 64 72 61 67 2d 75 70 2d | 68 6f 6f 6b 20 6e 69 6c |drag-up-|hook nil|
|000035b0| 20 28 23 24 20 2e 20 31 | 33 30 34 36 29 29 0a 23 | (#$ . 1|3046)).#|
|000035c0| 40 38 30 37 20 46 75 6e | 63 74 69 6f 6e 20 6f 72 |@807 Fun|ction or|
|000035d0| 20 66 75 6e 63 74 69 6f | 6e 73 20 63 61 6c 6c 65 | functio|ns calle|
|000035e0| 64 20 77 68 65 6e 20 74 | 68 65 20 75 73 65 72 20 |d when t|he user |
|000035f0| 63 6c 69 63 6b 73 20 74 | 68 65 20 6d 6f 75 73 65 |clicks t|he mouse|
|00003600| 2e 0a 60 43 6c 69 63 6b | 69 6e 67 27 20 6d 65 61 |..`Click|ing' mea|
|00003610| 6e 73 20 70 72 65 73 73 | 69 6e 67 20 61 6e 64 20 |ns press|ing and |
|00003620| 72 65 6c 65 61 73 69 6e | 67 20 74 68 65 20 6d 6f |releasin|g the mo|
|00003630| 75 73 65 20 77 69 74 68 | 6f 75 74 20 68 61 76 69 |use with|out havi|
|00003640| 6e 67 0a 69 6e 69 74 69 | 61 74 65 64 20 61 20 64 |ng.initi|ated a d|
|00003650| 72 61 67 20 28 69 2e 65 | 2e 20 77 69 74 68 6f 75 |rag (i.e|. withou|
|00003660| 74 20 68 61 76 69 6e 67 | 20 6d 6f 76 65 64 20 6d |t having| moved m|
|00003670| 6f 72 65 20 74 68 61 6e | 20 61 20 63 65 72 74 61 |ore than| a certa|
|00003680| 69 6e 0a 74 68 72 65 73 | 68 6f 6c 64 20 2d 2d 20 |in.thres|hold -- |
|00003690| 73 65 65 20 60 6d 6f 75 | 73 65 2d 74 72 61 63 6b |see `mou|se-track|
|000036a0| 2d 64 72 61 67 2d 68 6f | 6f 6b 27 29 2e 0a 0a 54 |-drag-ho|ok')...T|
|000036b0| 68 69 73 20 68 6f 6f 6b | 20 69 73 20 69 6e 76 6f |his hook| is invo|
|000036c0| 6b 65 64 20 62 79 20 60 | 6d 6f 75 73 65 2d 74 72 |ked by `|mouse-tr|
|000036d0| 61 63 6b 27 3b 20 74 68 | 75 73 2c 20 69 74 20 77 |ack'; th|us, it w|
|000036e0| 69 6c 6c 20 6e 6f 74 20 | 62 65 20 63 61 6c 6c 65 |ill not |be calle|
|000036f0| 64 0a 66 6f 72 20 61 6e | 79 20 62 75 74 74 6f 6e |d.for an|y button|
|00003700| 73 20 77 69 74 68 20 61 | 20 64 69 66 66 65 72 65 |s with a| differe|
|00003710| 6e 74 20 62 69 6e 64 69 | 6e 67 2e 20 20 54 68 65 |nt bindi|ng.  The|
|00003720| 20 66 75 6e 63 74 69 6f | 6e 73 20 77 69 6c 6c 20 | functio|ns will |
|00003730| 62 65 0a 63 61 6c 6c 65 | 64 20 77 69 74 68 20 74 |be.calle|d with t|
|00003740| 77 6f 20 61 72 67 75 6d | 65 6e 74 73 3a 20 74 68 |wo argum|ents: th|
|00003750| 65 20 62 75 74 74 6f 6e | 2d 72 65 6c 65 61 73 65 |e button|-release|
|00003760| 20 65 76 65 6e 74 20 61 | 6e 64 20 61 20 63 6c 69 | event a|nd a cli|
|00003770| 63 6b 0a 63 6f 75 6e 74 | 2c 20 77 68 69 63 68 20 |ck.count|, which |
|00003780| 73 70 65 63 69 66 69 65 | 73 20 74 68 65 20 6e 75 |specifie|s the nu|
|00003790| 6d 62 65 72 20 6f 66 20 | 74 69 6d 65 73 20 74 68 |mber of |times th|
|000037a0| 61 74 20 74 68 65 20 6d | 6f 75 73 65 20 68 61 73 |at the m|ouse has|
|000037b0| 20 62 65 65 6e 0a 63 6c | 69 63 6b 65 64 20 69 6e | been.cl|icked in|
|000037c0| 20 61 20 73 65 72 69 65 | 73 20 6f 66 20 63 6c 69 | a serie|s of cli|
|000037d0| 63 6b 73 2c 20 65 61 63 | 68 20 6f 66 20 77 68 69 |cks, eac|h of whi|
|000037e0| 63 68 20 69 73 20 73 65 | 70 61 72 61 74 65 64 20 |ch is se|parated |
|000037f0| 62 79 20 61 74 20 6d 6f | 73 74 0a 60 6d 6f 75 73 |by at mo|st.`mous|
|00003800| 65 2d 74 72 61 63 6b 2d | 6d 75 6c 74 69 2d 63 6c |e-track-|multi-cl|
|00003810| 69 63 6b 2d 74 69 6d 65 | 27 2e 20 20 54 68 69 73 |ick-time|'.  This|
|00003820| 20 63 61 6e 20 62 65 20 | 75 73 65 64 20 74 6f 20 | can be |used to |
|00003830| 69 6d 70 6c 65 6d 65 6e | 74 20 61 63 74 69 6f 6e |implemen|t action|
|00003840| 73 0a 74 68 61 74 20 61 | 72 65 20 63 61 6c 6c 65 |s.that a|re calle|
|00003850| 64 20 6f 6e 20 64 6f 75 | 62 6c 65 20 63 6c 69 63 |d on dou|ble clic|
|00003860| 6b 73 2c 20 74 72 69 70 | 6c 65 20 63 6c 69 63 6b |ks, trip|le click|
|00003870| 73 2c 20 65 74 63 2e 0a | 0a 49 66 20 61 6e 79 20 |s, etc..|.If any |
|00003880| 66 75 6e 63 74 69 6f 6e | 20 72 65 74 75 72 6e 73 |function| returns|
|00003890| 20 6e 6f 6e 2d 6e 69 6c | 2c 20 74 68 65 20 72 65 | non-nil|, the re|
|000038a0| 6d 61 69 6e 69 6e 67 20 | 66 75 6e 63 74 69 6f 6e |maining |function|
|000038b0| 73 20 77 69 6c 6c 20 6e | 6f 74 20 62 65 0a 63 61 |s will n|ot be.ca|
|000038c0| 6c 6c 65 64 2e 0a 0a 53 | 65 65 20 61 6c 73 6f 20 |lled...S|ee also |
|000038d0| 60 6d 6f 75 73 65 2d 74 | 72 61 63 6b 2d 64 72 61 |`mouse-t|rack-dra|
|000038e0| 67 2d 75 70 2d 68 6f 6f | 6b 2e 1f 0a 28 64 65 66 |g-up-hoo|k...(def|
|000038f0| 76 61 72 20 6d 6f 75 73 | 65 2d 74 72 61 63 6b 2d |var mous|e-track-|
|00003900| 63 6c 69 63 6b 2d 68 6f | 6f 6b 20 6e 69 6c 20 28 |click-ho|ok nil (|
|00003910| 23 24 20 2e 20 31 33 37 | 36 35 29 29 0a 23 40 34 |#$ . 137|65)).#@4|
|00003920| 32 34 20 46 75 6e 63 74 | 69 6f 6e 20 6f 72 20 66 |24 Funct|ion or f|
|00003930| 75 6e 63 74 69 6f 6e 73 | 20 63 61 6c 6c 65 64 20 |unctions| called |
|00003940| 77 68 65 6e 20 74 68 65 | 20 75 73 65 72 20 72 65 |when the| user re|
|00003950| 6c 65 61 73 65 73 20 74 | 68 65 20 6d 6f 75 73 65 |leases t|he mouse|
|00003960| 2e 0a 54 68 69 73 20 68 | 6f 6f 6b 20 69 73 20 69 |..This h|ook is i|
|00003970| 6e 76 6f 6b 65 64 20 62 | 79 20 60 6d 6f 75 73 65 |nvoked b|y `mouse|
|00003980| 2d 74 72 61 63 6b 27 3b | 20 74 68 75 73 2c 20 69 |-track';| thus, i|
|00003990| 74 20 77 69 6c 6c 20 6e | 6f 74 20 62 65 20 63 61 |t will n|ot be ca|
|000039a0| 6c 6c 65 64 0a 66 6f 72 | 20 61 6e 79 20 62 75 74 |lled.for| any but|
|000039b0| 74 6f 6e 73 20 77 69 74 | 68 20 61 20 64 69 66 66 |tons wit|h a diff|
|000039c0| 65 72 65 6e 74 20 62 69 | 6e 64 69 6e 67 2e 20 20 |erent bi|nding.  |
|000039d0| 54 68 65 20 66 75 6e 63 | 74 69 6f 6e 73 20 77 69 |The func|tions wi|
|000039e0| 6c 6c 20 62 65 0a 63 61 | 6c 6c 65 64 20 77 69 74 |ll be.ca|lled wit|
|000039f0| 68 20 74 77 6f 20 61 72 | 67 75 6d 65 6e 74 73 3a |h two ar|guments:|
|00003a00| 20 74 68 65 20 62 75 74 | 74 6f 6e 2d 72 65 6c 65 | the but|ton-rele|
|00003a10| 61 73 65 20 65 76 65 6e | 74 20 61 6e 64 20 61 20 |ase even|t and a |
|00003a20| 63 6c 69 63 6b 0a 63 6f | 75 6e 74 20 28 73 65 65 |click.co|unt (see|
|00003a30| 20 60 6d 6f 75 73 65 2d | 74 72 61 63 6b 2d 63 6c | `mouse-|track-cl|
|00003a40| 69 63 6b 2d 68 6f 6f 6b | 27 29 2e 0a 0a 46 6f 72 |ick-hook|')...For|
|00003a50| 20 6d 61 6e 79 20 61 70 | 70 6c 69 63 61 74 69 6f | many ap|plicatio|
|00003a60| 6e 73 2c 20 69 74 20 69 | 73 20 6d 6f 72 65 20 61 |ns, it i|s more a|
|00003a70| 70 70 72 6f 70 72 69 61 | 74 65 20 74 6f 20 75 73 |ppropria|te to us|
|00003a80| 65 20 6f 6e 65 20 6f 72 | 20 62 6f 74 68 0a 6f 66 |e one or| both.of|
|00003a90| 20 60 6d 6f 75 73 65 2d | 74 72 61 63 6b 2d 63 6c | `mouse-|track-cl|
|00003aa0| 69 63 6b 2d 68 6f 6f 6b | 27 20 61 6e 64 20 60 6d |ick-hook|' and `m|
|00003ab0| 6f 75 73 65 2d 74 72 61 | 63 6b 2d 64 72 61 67 2d |ouse-tra|ck-drag-|
|00003ac0| 75 70 2d 68 6f 6f 6b 27 | 2e 1f 0a 28 64 65 66 76 |up-hook'|...(defv|
|00003ad0| 61 72 20 6d 6f 75 73 65 | 2d 74 72 61 63 6b 2d 75 |ar mouse|-track-u|
|00003ae0| 70 2d 68 6f 6f 6b 20 6e | 69 6c 20 28 23 24 20 2e |p-hook n|il (#$ .|
|00003af0| 20 31 34 36 32 37 29 29 | 0a 23 40 34 37 35 20 46 | 14627))|.#@475 F|
|00003b00| 75 6e 63 74 69 6f 6e 20 | 6f 72 20 66 75 6e 63 74 |unction |or funct|
|00003b10| 69 6f 6e 73 20 63 61 6c | 6c 65 64 20 77 68 65 6e |ions cal|led when|
|00003b20| 20 60 6d 6f 75 73 65 2d | 74 72 61 63 6b 27 20 74 | `mouse-|track' t|
|00003b30| 65 72 6d 69 6e 61 74 65 | 73 2e 0a 54 68 69 73 20 |erminate|s..This |
|00003b40| 68 6f 6f 6b 20 77 69 6c | 6c 20 62 65 20 63 61 6c |hook wil|l be cal|
|00003b50| 6c 65 64 20 69 6e 20 61 | 6c 6c 20 63 69 72 63 75 |led in a|ll circu|
|00003b60| 6d 73 74 61 6e 63 65 73 | 2c 20 65 76 65 6e 20 75 |mstances|, even u|
|00003b70| 70 6f 6e 20 61 0a 6e 6f | 6e 2d 6c 6f 63 61 6c 20 |pon a.no|n-local |
|00003b80| 65 78 69 74 20 6f 75 74 | 20 6f 66 20 60 6d 6f 75 |exit out| of `mou|
|00003b90| 73 65 2d 74 72 61 63 6b | 27 2c 20 61 6e 64 20 73 |se-track|', and s|
|00003ba0| 6f 20 69 73 20 75 73 65 | 66 75 6c 20 66 6f 72 0a |o is use|ful for.|
|00003bb0| 64 6f 69 6e 67 20 63 6c | 65 61 6e 75 70 20 77 6f |doing cl|eanup wo|
|00003bc0| 72 6b 20 73 75 63 68 20 | 61 73 20 72 65 6d 6f 76 |rk such |as remov|
|00003bd0| 69 6e 67 20 65 78 74 65 | 6e 74 73 20 74 68 61 74 |ing exte|nts that|
|00003be0| 20 6d 61 79 20 68 61 76 | 65 0a 62 65 65 6e 20 63 | may hav|e.been c|
|00003bf0| 72 65 61 74 65 64 20 64 | 75 72 69 6e 67 20 74 68 |reated d|uring th|
|00003c00| 65 20 6f 70 65 72 61 74 | 69 6f 6e 20 6f 66 20 60 |e operat|ion of `|
|00003c10| 6d 6f 75 73 65 2d 74 72 | 61 63 6b 27 2e 0a 0a 55 |mouse-tr|ack'...U|
|00003c20| 6e 6c 69 6b 65 20 61 6c | 6c 20 6f 66 20 74 68 65 |nlike al|l of the|
|00003c30| 20 6f 74 68 65 72 20 6d | 6f 75 73 65 2d 74 72 61 | other m|ouse-tra|
|00003c40| 63 6b 20 68 6f 6f 6b 73 | 2c 20 74 68 69 73 20 69 |ck hooks|, this i|
|00003c50| 73 20 61 20 22 6e 6f 72 | 6d 61 6c 22 0a 68 6f 6f |s a "nor|mal".hoo|
|00003c60| 6b 3a 20 74 68 65 20 68 | 6f 6f 6b 20 66 75 6e 63 |k: the h|ook func|
|00003c70| 74 69 6f 6e 73 20 61 72 | 65 20 63 61 6c 6c 65 64 |tions ar|e called|
|00003c80| 20 77 69 74 68 20 6e 6f | 20 61 72 67 75 6d 65 6e | with no| argumen|
|00003c90| 74 73 2c 20 61 6e 64 0a | 61 6c 6c 20 68 6f 6f 6b |ts, and.|all hook|
|00003ca0| 20 66 75 6e 63 74 69 6f | 6e 73 20 61 72 65 20 63 | functio|ns are c|
|00003cb0| 61 6c 6c 65 64 20 72 65 | 67 61 72 64 6c 65 73 73 |alled re|gardless|
|00003cc0| 20 6f 66 20 74 68 65 69 | 72 20 72 65 74 75 72 6e | of thei|r return|
|00003cd0| 0a 76 61 6c 75 65 73 2e | 1f 0a 28 64 65 66 76 61 |.values.|..(defva|
|00003ce0| 72 20 6d 6f 75 73 65 2d | 74 72 61 63 6b 2d 63 6c |r mouse-|track-cl|
|00003cf0| 65 61 6e 75 70 2d 68 6f | 6f 6b 20 6e 69 6c 20 28 |eanup-ho|ok nil (|
|00003d00| 23 24 20 2e 20 31 35 31 | 30 33 29 29 0a 28 63 75 |#$ . 151|03)).(cu|
|00003d10| 73 74 6f 6d 2d 64 65 63 | 6c 61 72 65 2d 76 61 72 |stom-dec|lare-var|
|00003d20| 69 61 62 6c 65 20 27 6d | 6f 75 73 65 2d 74 72 61 |iable 'm|ouse-tra|
|00003d30| 63 6b 2d 6d 75 6c 74 69 | 2d 63 6c 69 63 6b 2d 74 |ck-multi|-click-t|
|00003d40| 69 6d 65 20 27 34 30 30 | 20 22 2a 4d 61 78 69 6d |ime '400| "*Maxim|
|00003d50| 75 6d 20 6e 75 6d 62 65 | 72 20 6f 66 20 6d 69 6c |um numbe|r of mil|
|00003d60| 6c 69 73 65 63 6f 6e 64 | 73 20 61 6c 6c 6f 77 65 |lisecond|s allowe|
|00003d70| 64 20 62 65 74 77 65 65 | 6e 20 63 6c 69 63 6b 73 |d betwee|n clicks|
|00003d80| 20 66 6f 72 20 61 20 6d | 75 6c 74 69 2d 63 6c 69 | for a m|ulti-cli|
|00003d90| 63 6b 2e 5c 6e 53 65 65 | 20 60 6d 6f 75 73 65 2d |ck.\nSee| `mouse-|
|00003da0| 74 72 61 63 6b 2d 63 6c | 69 63 6b 2d 68 6f 6f 6b |track-cl|ick-hook|
|00003db0| 27 2e 22 20 3a 74 79 70 | 65 20 27 69 6e 74 65 67 |'." :typ|e 'integ|
|00003dc0| 65 72 20 3a 67 72 6f 75 | 70 20 27 6d 6f 75 73 65 |er :grou|p 'mouse|
|00003dd0| 29 0a 28 63 75 73 74 6f | 6d 2d 64 65 63 6c 61 72 |).(custo|m-declar|
|00003de0| 65 2d 76 61 72 69 61 62 | 6c 65 20 27 6d 6f 75 73 |e-variab|le 'mous|
|00003df0| 65 2d 74 72 61 63 6b 2d | 73 63 72 6f 6c 6c 2d 64 |e-track-|scroll-d|
|00003e00| 65 6c 61 79 20 27 31 30 | 30 20 22 4d 61 78 69 6d |elay '10|0 "Maxim|
|00003e10| 75 6d 20 6f 66 20 6d 69 | 6c 6c 69 73 65 63 6f 6e |um of mi|llisecon|
|00003e20| 64 73 20 62 65 74 77 65 | 65 6e 20 63 61 6c 6c 73 |ds betwe|en calls|
|00003e30| 20 74 6f 20 60 6d 6f 75 | 73 65 2d 74 72 61 63 6b | to `mou|se-track|
|00003e40| 2d 64 72 61 67 2d 68 6f | 6f 6b 27 2e 5c 6e 49 66 |-drag-ho|ok'.\nIf|
|00003e50| 20 74 68 65 20 75 73 65 | 72 20 69 73 20 64 72 61 | the use|r is dra|
|00003e60| 67 67 69 6e 67 20 74 68 | 65 20 6d 6f 75 73 65 20 |gging th|e mouse |
|00003e70| 28 69 2e 65 2e 20 74 68 | 65 20 62 75 74 74 6f 6e |(i.e. th|e button|
|00003e80| 20 69 73 20 68 65 6c 64 | 20 64 6f 77 6e 20 61 6e | is held| down an|
|00003e90| 64 5c 6e 61 20 64 72 61 | 67 20 68 61 73 20 62 65 |d\na dra|g has be|
|00003ea0| 65 6e 20 69 6e 69 74 69 | 61 74 65 64 29 20 61 6e |en initi|ated) an|
|00003eb0| 64 20 64 6f 65 73 20 6e | 6f 74 20 6d 6f 76 65 20 |d does n|ot move |
|00003ec0| 74 68 65 20 6d 6f 75 73 | 65 20 66 6f 72 20 74 68 |the mous|e for th|
|00003ed0| 69 73 20 6d 61 6e 79 5c | 6e 6d 69 6c 6c 69 73 65 |is many\|nmillise|
|00003ee0| 63 6f 6e 64 73 2c 20 74 | 68 65 20 68 6f 6f 6b 20 |conds, t|he hook |
|00003ef0| 77 69 6c 6c 20 62 65 20 | 63 61 6c 6c 65 64 20 77 |will be |called w|
|00003f00| 69 74 68 20 74 20 61 73 | 20 74 68 65 20 76 61 6c |ith t as| the val|
|00003f10| 75 65 20 6f 66 20 74 68 | 65 5c 6e 57 41 53 2d 54 |ue of th|e\nWAS-T|
|00003f20| 49 4d 45 4f 55 54 20 70 | 61 72 61 6d 65 74 65 72 |IMEOUT p|arameter|
|00003f30| 2e 20 20 54 68 69 73 20 | 63 61 6e 20 62 65 20 75 |.  This |can be u|
|00003f40| 73 65 64 20 74 6f 20 69 | 6d 70 6c 65 6d 65 6e 74 |sed to i|mplement|
|00003f50| 20 73 63 72 6f 6c 6c 69 | 6e 67 5c 6e 69 6e 20 61 | scrolli|ng\nin a|
|00003f60| 20 73 65 6c 65 63 74 69 | 6f 6e 20 77 68 65 6e 20 | selecti|on when |
|00003f70| 74 68 65 20 75 73 65 72 | 20 64 72 61 67 73 20 74 |the user| drags t|
|00003f80| 68 65 20 6d 6f 75 73 65 | 20 6f 75 74 20 74 68 65 |he mouse| out the|
|00003f90| 20 77 69 6e 64 6f 77 20 | 69 74 5c 6e 77 61 73 20 | window |it\nwas |
|00003fa0| 69 6e 2e 5c 6e 5c 6e 41 | 20 76 61 6c 75 65 20 6f |in.\n\nA| value o|
|00003fb0| 66 20 6e 69 6c 20 64 69 | 73 61 62 6c 65 73 20 74 |f nil di|sables t|
|00003fc0| 68 65 20 74 69 6d 65 6f | 75 74 20 66 65 61 74 75 |he timeo|ut featu|
|00003fd0| 72 65 2e 22 20 3a 74 79 | 70 65 20 27 28 63 68 6f |re." :ty|pe '(cho|
|00003fe0| 69 63 65 20 69 6e 74 65 | 67 65 72 20 28 63 6f 6e |ice inte|ger (con|
|00003ff0| 73 74 20 3a 74 61 67 20 | 22 44 69 73 61 62 6c 65 |st :tag |"Disable|
|00004000| 64 22 20 6e 69 6c 29 29 | 20 3a 67 72 6f 75 70 20 |d" nil))| :group |
|00004010| 27 6d 6f 75 73 65 29 0a | 23 40 33 38 31 20 4d 69 |'mouse).|#@381 Mi|
|00004020| 6e 69 6d 75 6d 20 6e 75 | 6d 62 65 72 20 6f 66 20 |nimum nu|mber of |
|00004030| 70 69 78 65 6c 73 20 69 | 6e 20 74 68 65 20 58 20 |pixels i|n the X |
|00004040| 64 69 72 65 63 74 69 6f | 6e 20 66 6f 72 20 61 20 |directio|n for a |
|00004050| 64 72 61 67 20 74 6f 20 | 62 65 20 69 6e 69 74 69 |drag to |be initi|
|00004060| 61 74 65 64 2e 0a 49 66 | 20 74 68 65 20 6d 6f 75 |ated..If| the mou|
|00004070| 73 65 20 69 73 20 6d 6f | 76 65 64 20 6d 6f 72 65 |se is mo|ved more|
|00004080| 20 74 68 61 6e 20 65 69 | 74 68 65 72 20 74 68 65 | than ei|ther the|
|00004090| 20 58 20 6f 72 20 59 20 | 74 68 72 65 73 68 6f 6c | X or Y |threshol|
|000040a0| 64 20 77 68 69 6c 65 20 | 74 68 65 0a 62 75 74 74 |d while |the.butt|
|000040b0| 6f 6e 20 69 73 20 68 65 | 6c 64 20 64 6f 77 6e 20 |on is he|ld down |
|000040c0| 28 73 65 65 20 61 6c 73 | 6f 20 60 6d 6f 75 73 65 |(see als|o `mouse|
|000040d0| 2d 74 72 61 63 6b 2d 79 | 2d 74 68 72 65 73 68 6f |-track-y|-thresho|
|000040e0| 6c 64 27 29 2c 20 74 68 | 65 6e 20 61 20 64 72 61 |ld'), th|en a dra|
|000040f0| 67 0a 69 73 20 69 6e 69 | 74 69 61 74 65 64 3b 20 |g.is ini|tiated; |
|00004100| 6f 74 68 65 72 77 69 73 | 65 20 74 68 65 20 67 65 |otherwis|e the ge|
|00004110| 73 74 75 72 65 20 69 73 | 20 63 6f 6e 73 69 64 65 |sture is| conside|
|00004120| 72 65 64 20 74 6f 20 62 | 65 20 61 20 63 6c 69 63 |red to b|e a clic|
|00004130| 6b 2e 0a 53 65 65 20 60 | 6d 6f 75 73 65 2d 74 72 |k..See `|mouse-tr|
|00004140| 61 63 6b 27 2e 0a 0a 54 | 68 65 20 76 61 6c 75 65 |ack'...T|he value|
|00004150| 20 73 68 6f 75 6c 64 20 | 62 65 20 65 69 74 68 65 | should |be eithe|
|00004160| 72 20 61 20 6e 75 6d 62 | 65 72 20 6f 66 20 61 20 |r a numb|er of a |
|00004170| 66 6f 72 6d 20 74 6f 20 | 62 65 20 65 76 61 6c 75 |form to |be evalu|
|00004180| 61 74 65 64 20 74 6f 0a | 70 72 6f 64 75 63 65 20 |ated to.|produce |
|00004190| 61 20 6e 75 6d 62 65 72 | 2e 1f 0a 28 64 65 66 76 |a number|...(defv|
|000041a0| 61 72 20 6d 6f 75 73 65 | 2d 74 72 61 63 6b 2d 78 |ar mouse|-track-x|
|000041b0| 2d 74 68 72 65 73 68 6f | 6c 64 20 27 28 66 61 63 |-thresho|ld '(fac|
|000041c0| 65 2d 77 69 64 74 68 20 | 27 64 65 66 61 75 6c 74 |e-width |'default|
|000041d0| 29 20 28 23 24 20 2e 20 | 31 36 34 31 34 29 29 0a |) (#$ . |16414)).|
|000041e0| 23 40 33 38 31 20 4d 69 | 6e 69 6d 75 6d 20 6e 75 |#@381 Mi|nimum nu|
|000041f0| 6d 62 65 72 20 6f 66 20 | 70 69 78 65 6c 73 20 69 |mber of |pixels i|
|00004200| 6e 20 74 68 65 20 59 20 | 64 69 72 65 63 74 69 6f |n the Y |directio|
|00004210| 6e 20 66 6f 72 20 61 20 | 64 72 61 67 20 74 6f 20 |n for a |drag to |
|00004220| 62 65 20 69 6e 69 74 69 | 61 74 65 64 2e 0a 49 66 |be initi|ated..If|
|00004230| 20 74 68 65 20 6d 6f 75 | 73 65 20 69 73 20 6d 6f | the mou|se is mo|
|00004240| 76 65 64 20 6d 6f 72 65 | 20 74 68 61 6e 20 65 69 |ved more| than ei|
|00004250| 74 68 65 72 20 74 68 65 | 20 58 20 6f 72 20 59 20 |ther the| X or Y |
|00004260| 74 68 72 65 73 68 6f 6c | 64 20 77 68 69 6c 65 20 |threshol|d while |
|00004270| 74 68 65 0a 62 75 74 74 | 6f 6e 20 69 73 20 68 65 |the.butt|on is he|
|00004280| 6c 64 20 64 6f 77 6e 20 | 28 73 65 65 20 61 6c 73 |ld down |(see als|
|00004290| 6f 20 60 6d 6f 75 73 65 | 2d 74 72 61 63 6b 2d 78 |o `mouse|-track-x|
|000042a0| 2d 74 68 72 65 73 68 6f | 6c 64 27 29 2c 20 74 68 |-thresho|ld'), th|
|000042b0| 65 6e 20 61 20 64 72 61 | 67 0a 69 73 20 69 6e 69 |en a dra|g.is ini|
|000042c0| 74 69 61 74 65 64 3b 20 | 6f 74 68 65 72 77 69 73 |tiated; |otherwis|
|000042d0| 65 20 74 68 65 20 67 65 | 73 74 75 72 65 20 69 73 |e the ge|sture is|
|000042e0| 20 63 6f 6e 73 69 64 65 | 72 65 64 20 74 6f 20 62 | conside|red to b|
|000042f0| 65 20 61 20 63 6c 69 63 | 6b 2e 0a 53 65 65 20 60 |e a clic|k..See `|
|00004300| 6d 6f 75 73 65 2d 74 72 | 61 63 6b 27 2e 0a 0a 54 |mouse-tr|ack'...T|
|00004310| 68 65 20 76 61 6c 75 65 | 20 73 68 6f 75 6c 64 20 |he value| should |
|00004320| 62 65 20 65 69 74 68 65 | 72 20 61 20 6e 75 6d 62 |be eithe|r a numb|
|00004330| 65 72 20 6f 66 20 61 20 | 66 6f 72 6d 20 74 6f 20 |er of a |form to |
|00004340| 62 65 20 65 76 61 6c 75 | 61 74 65 64 20 74 6f 0a |be evalu|ated to.|
|00004350| 70 72 6f 64 75 63 65 20 | 61 20 6e 75 6d 62 65 72 |produce |a number|
|00004360| 2e 1f 0a 28 64 65 66 76 | 61 72 20 6d 6f 75 73 65 |...(defv|ar mouse|
|00004370| 2d 74 72 61 63 6b 2d 79 | 2d 74 68 72 65 73 68 6f |-track-y|-thresho|
|00004380| 6c 64 20 27 28 66 61 63 | 65 2d 68 65 69 67 68 74 |ld '(fac|e-height|
|00004390| 20 27 64 65 66 61 75 6c | 74 29 20 28 23 24 20 2e | 'defaul|t) (#$ .|
|000043a0| 20 31 36 38 37 30 29 29 | 0a 28 62 79 74 65 2d 63 | 16870))|.(byte-c|
|000043b0| 6f 64 65 20 22 c0 c1 21 | ac 82 c2 11 c1 0b 42 13 |ode "..!|......B.|
|000043c0| c0 c4 21 ac 82 c2 14 c4 | 0b 42 13 c0 c5 21 ac 82 |..!.....|.B...!..|
|000043d0| c2 15 c5 0b 42 13 c0 c6 | 21 ac 83 c2 16 06 c6 0b |....B...|!.......|
|000043e0| 42 13 c0 c7 21 ac 83 c2 | 16 07 c7 0b 42 13 c2 87 |B...!...|....B...|
|000043f0| 22 20 5b 62 6f 75 6e 64 | 70 20 6d 6f 75 73 65 2d |" [bound|p mouse-|
|00004400| 74 72 61 63 6b 2d 75 70 | 2d 74 69 6d 65 20 6e 69 |track-up|-time ni|
|00004410| 6c 20 63 75 72 72 65 6e | 74 2d 6c 6f 61 64 2d 6c |l curren|t-load-l|
|00004420| 69 73 74 20 6d 6f 75 73 | 65 2d 74 72 61 63 6b 2d |ist mous|e-track-|
|00004430| 75 70 2d 78 20 6d 6f 75 | 73 65 2d 74 72 61 63 6b |up-x mou|se-track|
|00004440| 2d 75 70 2d 79 20 6d 6f | 75 73 65 2d 74 72 61 63 |-up-y mo|use-trac|
|00004450| 6b 2d 74 69 6d 65 6f 75 | 74 2d 69 64 20 6d 6f 75 |k-timeou|t-id mou|
|00004460| 73 65 2d 74 72 61 63 6b | 2d 63 6c 69 63 6b 2d 63 |se-track|-click-c|
|00004470| 6f 75 6e 74 5d 20 32 29 | 0a 28 64 65 66 61 6c 69 |ount] 2)|.(defali|
|00004480| 61 73 20 27 6d 6f 75 73 | 65 2d 74 72 61 63 6b 2d |as 'mous|e-track-|
|00004490| 73 65 74 2d 74 69 6d 65 | 6f 75 74 20 23 5b 28 65 |set-time|out #[(e|
|000044a0| 76 65 6e 74 29 20 22 08 | ab 84 c1 08 21 88 5c 6e |vent) ".|....!.\n|
|000044b0| ad 8c c3 5c 6e c4 a5 c5 | c6 0e 07 21 23 89 10 87 |...\n...|...!#...|
|000044c0| 22 20 5b 6d 6f 75 73 65 | 2d 74 72 61 63 6b 2d 74 |" [mouse|-track-t|
|000044d0| 69 6d 65 6f 75 74 2d 69 | 64 20 64 69 73 61 62 6c |imeout-i|d disabl|
|000044e0| 65 2d 74 69 6d 65 6f 75 | 74 20 6d 6f 75 73 65 2d |e-timeou|t mouse-|
|000044f0| 74 72 61 63 6b 2d 73 63 | 72 6f 6c 6c 2d 64 65 6c |track-sc|roll-del|
|00004500| 61 79 20 61 64 64 2d 74 | 69 6d 65 6f 75 74 20 31 |ay add-t|imeout 1|
|00004510| 30 30 30 2e 30 20 6d 6f | 75 73 65 2d 74 72 61 63 |000.0 mo|use-trac|
|00004520| 6b 2d 73 63 72 6f 6c 6c | 2d 75 6e 64 65 66 69 6e |k-scroll|-undefin|
|00004530| 65 64 20 63 6f 70 79 2d | 65 76 65 6e 74 20 65 76 |ed copy-|event ev|
|00004540| 65 6e 74 5d 20 35 5d 29 | 0a 28 64 65 66 61 6c 69 |ent] 5])|.(defali|
|00004550| 61 73 20 27 6d 6f 75 73 | 65 2d 74 72 61 63 6b 2d |as 'mous|e-track-|
|00004560| 72 75 6e 2d 68 6f 6f 6b | 20 23 5b 28 68 6f 6f 6b |run-hook| #[(hook|
|00004570| 20 65 76 65 6e 74 20 26 | 72 65 73 74 20 61 72 67 | event &|rest arg|
|00004580| 73 29 20 22 c0 09 21 1a | 0b ab 82 0b 12 5c 6e ad |s) "..!.|.....\n.|
|00004590| bb c4 0d 5c 6e c6 23 89 | 1e 07 3c ab a8 0e 07 40 |...\n.#.|..<....@|
|000045a0| c8 61 ac a1 c6 1e 09 0e | 07 ab 95 ca 0e 07 40 09 |.a......|......@.|
|000045b0| 0e 0b 23 89 16 09 ac 88 | 0e 07 41 89 16 07 ac 6b |..#.....|..A....k|
|000045c0| 0e 09 29 aa 87 ca 0e 07 | 09 0e 0b 23 29 29 87 22 |..).....|...#))."|
|000045d0| 20 5b 65 76 65 6e 74 2d | 62 75 66 66 65 72 20 65 | [event-|buffer e|
|000045e0| 76 65 6e 74 20 62 75 66 | 66 65 72 20 6d 6f 75 73 |vent buf|fer mous|
|000045f0| 65 2d 67 72 61 62 62 65 | 64 2d 62 75 66 66 65 72 |e-grabbe|d-buffer|
|00004600| 20 73 79 6d 62 6f 6c 2d | 76 61 6c 75 65 2d 69 6e | symbol-|value-in|
|00004610| 2d 62 75 66 66 65 72 20 | 68 6f 6f 6b 20 6e 69 6c |-buffer |hook nil|
|00004620| 20 76 61 6c 75 65 20 6c | 61 6d 62 64 61 20 72 65 | value l|ambda re|
|00004630| 74 76 61 6c 20 61 70 70 | 6c 79 20 61 72 67 73 5d |tval app|ly args]|
|00004640| 20 35 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 | 5]).(de|falias '|
|00004650| 6d 6f 75 73 65 2d 74 72 | 61 63 6b 2d 73 63 72 6f |mouse-tr|ack-scro|
|00004660| 6c 6c 2d 75 6e 64 65 66 | 69 6e 65 64 20 23 5b 28 |ll-undef|ined #[(|
|00004670| 72 61 6e 64 6f 6d 29 20 | 22 c0 87 22 20 5b 6e 69 |random) |".." [ni|
|00004680| 6c 5d 20 31 5d 29 0a 23 | 40 31 36 32 35 20 4d 61 |l] 1]).#|@1625 Ma|
|00004690| 6b 65 20 61 20 73 65 6c | 65 63 74 69 6f 6e 20 77 |ke a sel|ection w|
|000046a0| 69 74 68 20 74 68 65 20 | 6d 6f 75 73 65 2e 20 20 |ith the |mouse.  |
|000046b0| 54 68 69 73 20 73 68 6f | 75 6c 64 20 62 65 20 62 |This sho|uld be b|
|000046c0| 6f 75 6e 64 20 74 6f 20 | 61 20 6d 6f 75 73 65 20 |ound to |a mouse |
|000046d0| 62 75 74 74 6f 6e 2e 0a | 54 68 65 20 62 65 68 61 |button..|The beha|
|000046e0| 76 69 6f 72 20 6f 66 20 | 58 45 6d 61 63 73 20 64 |vior of |XEmacs d|
|000046f0| 75 72 69 6e 67 20 6d 6f | 75 73 65 20 73 65 6c 65 |uring mo|use sele|
|00004700| 63 74 69 6f 6e 20 69 73 | 20 63 75 73 74 6f 6d 69 |ction is| customi|
|00004710| 7a 61 62 6c 65 20 75 73 | 69 6e 67 20 76 61 72 69 |zable us|ing vari|
|00004720| 6f 75 73 0a 68 6f 6f 6b | 73 20 61 6e 64 20 76 61 |ous.hook|s and va|
|00004730| 72 69 61 62 6c 65 73 3a | 20 73 65 65 20 60 6d 6f |riables:| see `mo|
|00004740| 75 73 65 2d 74 72 61 63 | 6b 2d 63 6c 69 63 6b 2d |use-trac|k-click-|
|00004750| 68 6f 6f 6b 27 2c 20 60 | 6d 6f 75 73 65 2d 74 72 |hook', `|mouse-tr|
|00004760| 61 63 6b 2d 64 72 61 67 | 2d 68 6f 6f 6b 27 2c 0a |ack-drag|-hook',.|
|00004770| 60 6d 6f 75 73 65 2d 74 | 72 61 63 6b 2d 64 72 61 |`mouse-t|rack-dra|
|00004780| 67 2d 75 70 2d 68 6f 6f | 6b 27 2c 20 60 6d 6f 75 |g-up-hoo|k', `mou|
|00004790| 73 65 2d 74 72 61 63 6b | 2d 64 6f 77 6e 2d 68 6f |se-track|-down-ho|
|000047a0| 6f 6b 27 2c 20 60 6d 6f | 75 73 65 2d 74 72 61 63 |ok', `mo|use-trac|
|000047b0| 6b 2d 75 70 2d 68 6f 6f | 6b 27 2c 0a 60 6d 6f 75 |k-up-hoo|k',.`mou|
|000047c0| 73 65 2d 74 72 61 63 6b | 2d 63 6c 65 61 6e 75 70 |se-track|-cleanup|
|000047d0| 2d 68 6f 6f 6b 27 2c 20 | 60 6d 6f 75 73 65 2d 74 |-hook', |`mouse-t|
|000047e0| 72 61 63 6b 2d 6d 75 6c | 74 69 2d 63 6c 69 63 6b |rack-mul|ti-click|
|000047f0| 2d 74 69 6d 65 27 2c 0a | 60 6d 6f 75 73 65 2d 74 |-time',.|`mouse-t|
|00004800| 72 61 63 6b 2d 73 63 72 | 6f 6c 6c 2d 64 65 6c 61 |rack-scr|oll-dela|
|00004810| 79 27 2c 20 60 6d 6f 75 | 73 65 2d 74 72 61 63 6b |y', `mou|se-track|
|00004820| 2d 78 2d 74 68 72 65 73 | 68 6f 6c 64 27 2c 20 61 |-x-thres|hold', a|
|00004830| 6e 64 0a 60 6d 6f 75 73 | 65 2d 74 72 61 63 6b 2d |nd.`mous|e-track-|
|00004840| 79 2d 74 68 72 65 73 68 | 6f 6c 64 27 2e 0a 0a 44 |y-thresh|old'...D|
|00004850| 65 66 61 75 6c 74 20 68 | 61 6e 64 6c 65 72 73 20 |efault h|andlers |
|00004860| 61 72 65 20 70 72 6f 76 | 69 64 65 64 20 74 6f 20 |are prov|ided to |
|00004870| 69 6d 70 6c 65 6d 65 6e | 74 20 73 74 61 6e 64 61 |implemen|t standa|
|00004880| 72 64 20 73 65 6c 65 63 | 74 69 6e 67 2f 70 6f 73 |rd selec|ting/pos|
|00004890| 69 74 69 6f 6e 69 6e 67 | 0a 62 65 68 61 76 69 6f |itioning|.behavio|
|000048a0| 72 2e 20 20 59 6f 75 20 | 63 61 6e 20 65 78 70 6c |r.  You |can expl|
|000048b0| 69 63 69 74 6c 79 20 72 | 65 71 75 65 73 74 20 74 |icitly r|equest t|
|000048c0| 68 69 73 20 64 65 66 61 | 75 6c 74 20 62 65 68 61 |his defa|ult beha|
|000048d0| 76 69 6f 72 2c 20 61 6e | 64 20 6f 76 65 72 72 69 |vior, an|d overri|
|000048e0| 64 65 0a 61 6e 79 20 63 | 75 73 74 6f 6d 2d 73 75 |de.any c|ustom-su|
|000048f0| 70 70 6c 69 65 64 20 68 | 61 6e 64 6c 65 72 73 2c |pplied h|andlers,|
|00004900| 20 62 79 20 75 73 69 6e | 67 20 74 68 65 20 66 75 | by usin|g the fu|
|00004910| 6e 63 74 69 6f 6e 20 60 | 6d 6f 75 73 65 2d 74 72 |nction `|mouse-tr|
|00004920| 61 63 6b 2d 64 65 66 61 | 75 6c 74 27 0a 69 6e 73 |ack-defa|ult'.ins|
|00004930| 74 65 61 64 20 6f 66 20 | 60 6d 6f 75 73 65 2d 74 |tead of |`mouse-t|
|00004940| 72 61 63 6b 27 2e 0a 0a | 44 65 66 61 75 6c 74 20 |rack'...|Default |
|00004950| 62 65 68 61 76 69 6f 72 | 20 69 73 20 61 73 20 66 |behavior| is as f|
|00004960| 6f 6c 6c 6f 77 73 3a 20 | 0a 0a 49 66 20 79 6f 75 |ollows: |..If you|
|00004970| 20 63 6c 69 63 6b 2d 61 | 6e 64 2d 64 72 61 67 2c | click-a|nd-drag,|
|00004980| 20 74 68 65 20 73 65 6c | 65 63 74 69 6f 6e 20 77 | the sel|ection w|
|00004990| 69 6c 6c 20 62 65 20 73 | 65 74 20 74 6f 20 74 68 |ill be s|et to th|
|000049a0| 65 20 72 65 67 69 6f 6e | 20 62 65 74 77 65 65 6e |e region| between|
|000049b0| 20 74 68 65 0a 70 6f 69 | 6e 74 20 6f 66 20 74 68 | the.poi|nt of th|
|000049c0| 65 20 69 6e 69 74 69 61 | 6c 20 63 6c 69 63 6b 20 |e initia|l click |
|000049d0| 61 6e 64 20 74 68 65 20 | 70 6f 69 6e 74 20 61 74 |and the |point at|
|000049e0| 20 77 68 69 63 68 20 79 | 6f 75 20 72 65 6c 65 61 | which y|ou relea|
|000049f0| 73 65 20 74 68 65 20 62 | 75 74 74 6f 6e 2e 0a 54 |se the b|utton..T|
|00004a00| 68 65 73 65 20 70 6f 73 | 69 74 69 6f 6e 73 20 6e |hese pos|itions n|
|00004a10| 65 65 64 20 6e 6f 74 20 | 62 65 20 6f 72 64 65 72 |eed not |be order|
|00004a20| 65 64 2e 0a 0a 49 66 20 | 79 6f 75 20 63 6c 69 63 |ed...If |you clic|
|00004a30| 6b 2d 61 6e 64 2d 72 65 | 6c 65 61 73 65 20 77 69 |k-and-re|lease wi|
|00004a40| 74 68 6f 75 74 20 6d 6f | 76 69 6e 67 20 74 68 65 |thout mo|ving the|
|00004a50| 20 6d 6f 75 73 65 2c 20 | 74 68 65 6e 20 74 68 65 | mouse, |then the|
|00004a60| 20 70 6f 69 6e 74 20 69 | 73 20 6d 6f 76 65 64 0a | point i|s moved.|
|00004a70| 61 6e 64 20 74 68 65 20 | 73 65 6c 65 63 74 69 6f |and the |selectio|
|00004a80| 6e 20 69 73 20 64 69 73 | 6f 77 6e 65 64 20 28 74 |n is dis|owned (t|
|00004a90| 68 65 72 65 20 77 69 6c | 6c 20 62 65 20 6e 6f 20 |here wil|l be no |
|00004aa0| 73 65 6c 65 63 74 69 6f | 6e 20 6f 77 6e 65 72 29 |selectio|n owner)|
|00004ab0| 2e 20 20 54 68 65 20 6d | 61 72 6b 0a 77 69 6c 6c |.  The m|ark.will|
|00004ac0| 20 62 65 20 73 65 74 20 | 74 6f 20 74 68 65 20 70 | be set |to the p|
|00004ad0| 72 65 76 69 6f 75 73 20 | 70 6f 73 69 74 69 6f 6e |revious |position|
|00004ae0| 20 6f 66 20 70 6f 69 6e | 74 2e 0a 0a 49 66 20 79 | of poin|t...If y|
|00004af0| 6f 75 20 64 6f 75 62 6c | 65 2d 63 6c 69 63 6b 2c |ou doubl|e-click,|
|00004b00| 20 74 68 65 20 73 65 6c | 65 63 74 69 6f 6e 20 77 | the sel|ection w|
|00004b10| 69 6c 6c 20 65 78 74 65 | 6e 64 20 62 79 20 73 79 |ill exte|nd by sy|
|00004b20| 6d 62 6f 6c 73 20 69 6e | 73 74 65 61 64 20 6f 66 |mbols in|stead of|
|00004b30| 20 62 79 0a 63 68 61 72 | 61 63 74 65 72 73 2e 20 | by.char|acters. |
|00004b40| 20 49 66 20 79 6f 75 20 | 74 72 69 70 6c 65 2d 63 | If you |triple-c|
|00004b50| 6c 69 63 6b 2c 20 74 68 | 65 20 73 65 6c 65 63 74 |lick, th|e select|
|00004b60| 69 6f 6e 20 77 69 6c 6c | 20 65 78 74 65 6e 64 20 |ion will| extend |
|00004b70| 62 79 20 6c 69 6e 65 73 | 2e 0a 0a 49 66 20 79 6f |by lines|...If yo|
|00004b80| 75 20 64 72 61 67 20 74 | 68 65 20 6d 6f 75 73 65 |u drag t|he mouse|
|00004b90| 20 6f 66 66 20 74 68 65 | 20 74 6f 70 20 6f 72 20 | off the| top or |
|00004ba0| 62 6f 74 74 6f 6d 20 6f | 66 20 74 68 65 20 77 69 |bottom o|f the wi|
|00004bb0| 6e 64 6f 77 2c 20 79 6f | 75 20 63 61 6e 20 73 65 |ndow, yo|u can se|
|00004bc0| 6c 65 63 74 0a 70 69 65 | 63 65 73 20 6f 66 20 74 |lect.pie|ces of t|
|00004bd0| 65 78 74 20 77 68 69 63 | 68 20 61 72 65 20 6c 61 |ext whic|h are la|
|00004be0| 72 67 65 72 20 74 68 61 | 6e 20 74 68 65 20 76 69 |rger tha|n the vi|
|00004bf0| 73 69 62 6c 65 20 70 61 | 72 74 20 6f 66 20 74 68 |sible pa|rt of th|
|00004c00| 65 20 62 75 66 66 65 72 | 3b 20 74 68 65 0a 62 75 |e buffer|; the.bu|
|00004c10| 66 66 65 72 20 77 69 6c | 6c 20 73 63 72 6f 6c 6c |ffer wil|l scroll|
|00004c20| 20 61 73 20 6e 65 63 65 | 73 73 61 72 79 2e 0a 0a | as nece|ssary...|
|00004c30| 54 68 65 20 73 65 6c 65 | 63 74 65 64 20 74 65 78 |The sele|cted tex|
|00004c40| 74 20 62 65 63 6f 6d 65 | 73 20 74 68 65 20 63 75 |t become|s the cu|
|00004c50| 72 72 65 6e 74 20 58 20 | 53 65 6c 65 63 74 69 6f |rrent X |Selectio|
|00004c60| 6e 2e 20 20 54 68 65 20 | 70 6f 69 6e 74 20 77 69 |n.  The |point wi|
|00004c70| 6c 6c 20 62 65 20 6c 65 | 66 74 0a 61 74 20 74 68 |ll be le|ft.at th|
|00004c80| 65 20 70 6f 73 69 74 69 | 6f 6e 20 61 74 20 77 68 |e positi|on at wh|
|00004c90| 69 63 68 20 79 6f 75 20 | 72 65 6c 65 61 73 65 64 |ich you |released|
|00004ca0| 20 74 68 65 20 62 75 74 | 74 6f 6e 2c 20 61 6e 64 | the but|ton, and|
|00004cb0| 20 74 68 65 20 6d 61 72 | 6b 20 77 69 6c 6c 20 62 | the mar|k will b|
|00004cc0| 65 20 6c 65 66 74 0a 61 | 74 20 74 68 65 20 69 6e |e left.a|t the in|
|00004cd0| 69 74 69 61 6c 20 63 6c | 69 63 6b 20 70 6f 73 69 |itial cl|ick posi|
|00004ce0| 74 69 6f 6e 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |tion...(|defalias|
|00004cf0| 20 27 6d 6f 75 73 65 2d | 74 72 61 63 6b 20 23 5b | 'mouse-|track #[|
|00004d00| 28 65 76 65 6e 74 29 20 | 22 c0 c1 5c 6e 21 c1 0b |(event) |"..\n!..|
|00004d10| 21 c4 0d 21 c6 0d 21 c7 | 0d 21 c7 0d 21 c8 1e 09 |!..!..!.|.!..!...|
|00004d20| 1e 5c 6e 1e 0b 1e 0c 1e | 0d 1e 0e 1e 0f 1e 10 0e |.\n.....|........|
|00004d30| 11 ab ab 0e 12 ab a7 0e | 13 ab a3 d4 0d 21 0e 13 |........|.....!..|
|00004d40| 5a 0e 15 56 ac 98 d6 0e | 11 0e 0d 5a 21 0e 0f 56 |Z..V....|...Z!..V|
|00004d50| ac 8c d6 0e 12 0e 0c 5a | 21 0e 0e 56 ab 85 d7 16 |.......Z|!..V....|
|00004d60| 18 aa 85 0e 18 54 16 18 | d9 0d 21 ac 84 da db 21 |.....T..|..!....!|
|00004d70| 88 dc dd 0d 0e 18 23 88 | de 8e 0e 10 85 1b 01 df |......#.|........|
|00004d80| 0d 21 15 e0 0d 21 ab b3 | 0e 09 ac 9d d6 c4 0d 21 |.!...!..|.......!|
|00004d90| 0e 0d 5a 21 0e 0f 56 ac | 8d d6 c6 0d 21 0e 0c 5a |..Z!..V.|....!..Z|
|00004da0| 21 0e 0e 56 ab 83 c0 16 | 09 0e 09 ab 88 dc e1 0d |!..V....|........|
|00004db0| 0e 18 c8 24 88 e2 0d 21 | 88 aa 3f e3 0d 21 ab 9d |...$...!|..?..!..|
|00004dc0| e4 0d 21 e5 61 ab 96 0e | 09 ab 8a dc e1 e6 0d 21 |..!.a...|.......!|
|00004dd0| 0e 18 c0 24 88 e2 e6 0d | 21 21 88 aa 1d e7 0d 21 |...$....|!!.....!|
|00004de0| ab b1 d4 0d 21 16 13 c4 | 0d 21 16 11 c6 0d 21 16 |....!...|.!....!.|
|00004df0| 12 c8 16 10 dc e8 0d 0e | 18 23 88 0e 09 ab 8a dc |........|.#......|
|00004e00| e9 0d 0e 18 23 88 82 6f | 00 dc ea 0d 0e 18 23 88 |....#..o|......#.|
|00004e10| 82 6f 00 eb 0d 21 ab 87 | da ec 21 88 82 6f 00 ed |.o...!..|..!..o..|
|00004e20| 0d 21 88 82 6f 00 2e 09 | 87 22 20 5b 74 20 65 76 |.!..o...|." [t ev|
|00004e30| 61 6c 20 6d 6f 75 73 65 | 2d 74 72 61 63 6b 2d 78 |al mouse|-track-x|
|00004e40| 2d 74 68 72 65 73 68 6f | 6c 64 20 6d 6f 75 73 65 |-thresho|ld mouse|
|00004e50| 2d 74 72 61 63 6b 2d 79 | 2d 74 68 72 65 73 68 6f |-track-y|-thresho|
|00004e60| 6c 64 20 65 76 65 6e 74 | 2d 78 2d 70 69 78 65 6c |ld event|-x-pixel|
|00004e70| 20 65 76 65 6e 74 20 65 | 76 65 6e 74 2d 79 2d 70 | event e|vent-y-p|
|00004e80| 69 78 65 6c 20 65 76 65 | 6e 74 2d 62 75 66 66 65 |ixel eve|nt-buffe|
|00004e90| 72 20 6e 69 6c 20 6d 6f | 75 73 65 2d 6d 6f 76 65 |r nil mo|use-move|
|00004ea0| 64 20 6d 6f 75 73 65 2d | 67 72 61 62 62 65 64 2d |d mouse-|grabbed-|
|00004eb0| 62 75 66 66 65 72 20 62 | 75 66 66 65 72 20 6f 72 |buffer b|uffer or|
|00004ec0| 69 67 2d 79 20 6f 72 69 | 67 2d 78 20 79 74 68 72 |ig-y ori|g-x ythr|
|00004ed0| 65 73 68 20 78 74 68 72 | 65 73 68 20 6d 6f 75 73 |esh xthr|esh mous|
|00004ee0| 65 2d 64 6f 77 6e 20 6d | 6f 75 73 65 2d 74 72 61 |e-down m|ouse-tra|
|00004ef0| 63 6b 2d 75 70 2d 78 20 | 6d 6f 75 73 65 2d 74 72 |ck-up-x |mouse-tr|
|00004f00| 61 63 6b 2d 75 70 2d 79 | 20 6d 6f 75 73 65 2d 74 |ack-up-y| mouse-t|
|00004f10| 72 61 63 6b 2d 75 70 2d | 74 69 6d 65 20 65 76 65 |rack-up-|time eve|
|00004f20| 6e 74 2d 74 69 6d 65 73 | 74 61 6d 70 20 6d 6f 75 |nt-times|tamp mou|
|00004f30| 73 65 2d 74 72 61 63 6b | 2d 6d 75 6c 74 69 2d 63 |se-track|-multi-c|
|00004f40| 6c 69 63 6b 2d 74 69 6d | 65 20 61 62 73 20 31 20 |lick-tim|e abs 1 |
|00004f50| 6d 6f 75 73 65 2d 74 72 | 61 63 6b 2d 63 6c 69 63 |mouse-tr|ack-clic|
|00004f60| 6b 2d 63 6f 75 6e 74 20 | 65 76 65 6e 74 2d 77 69 |k-count |event-wi|
|00004f70| 6e 64 6f 77 20 65 72 72 | 6f 72 20 22 4e 6f 74 20 |ndow err|or "Not |
|00004f80| 6f 76 65 72 20 61 20 77 | 69 6e 64 6f 77 2e 22 20 |over a w|indow." |
|00004f90| 6d 6f 75 73 65 2d 74 72 | 61 63 6b 2d 72 75 6e 2d |mouse-tr|ack-run-|
|00004fa0| 68 6f 6f 6b 20 6d 6f 75 | 73 65 2d 74 72 61 63 6b |hook mou|se-track|
|00004fb0| 2d 64 6f 77 6e 2d 68 6f | 6f 6b 20 28 28 62 79 74 |-down-ho|ok ((byt|
|00004fc0| 65 2d 63 6f 64 65 20 22 | 08 ab 84 c1 08 21 88 c2 |e-code "|.....!..|
|00004fd0| 10 0b ab 89 8a 0b 71 88 | c4 c5 21 88 29 c2 87 22 |......q.|..!.).."|
|00004fe0| 20 5b 6d 6f 75 73 65 2d | 74 72 61 63 6b 2d 74 69 | [mouse-|track-ti|
|00004ff0| 6d 65 6f 75 74 2d 69 64 | 20 64 69 73 61 62 6c 65 |meout-id| disable|
|00005000| 2d 74 69 6d 65 6f 75 74 | 20 6e 69 6c 20 62 75 66 |-timeout| nil buf|
|00005010| 66 65 72 20 72 75 6e 2d | 68 6f 6f 6b 73 20 6d 6f |fer run-|hooks mo|
|00005020| 75 73 65 2d 74 72 61 63 | 6b 2d 63 6c 65 61 6e 75 |use-trac|k-cleanu|
|00005030| 70 2d 68 6f 6f 6b 5d 20 | 32 29 29 20 6e 65 78 74 |p-hook] |2)) next|
|00005040| 2d 65 76 65 6e 74 20 6d | 6f 74 69 6f 6e 2d 65 76 |-event m|otion-ev|
|00005050| 65 6e 74 2d 70 20 6d 6f | 75 73 65 2d 74 72 61 63 |ent-p mo|use-trac|
|00005060| 6b 2d 64 72 61 67 2d 68 | 6f 6f 6b 20 6d 6f 75 73 |k-drag-h|ook mous|
|00005070| 65 2d 74 72 61 63 6b 2d | 73 65 74 2d 74 69 6d 65 |e-track-|set-time|
|00005080| 6f 75 74 20 74 69 6d 65 | 6f 75 74 2d 65 76 65 6e |out time|out-even|
|00005090| 74 2d 70 20 65 76 65 6e | 74 2d 66 75 6e 63 74 69 |t-p even|t-functi|
|000050a0| 6f 6e 20 6d 6f 75 73 65 | 2d 74 72 61 63 6b 2d 73 |on mouse|-track-s|
|000050b0| 63 72 6f 6c 6c 2d 75 6e | 64 65 66 69 6e 65 64 20 |croll-un|defined |
|000050c0| 65 76 65 6e 74 2d 6f 62 | 6a 65 63 74 20 62 75 74 |event-ob|ject but|
|000050d0| 74 6f 6e 2d 72 65 6c 65 | 61 73 65 2d 65 76 65 6e |ton-rele|ase-even|
|000050e0| 74 2d 70 20 6d 6f 75 73 | 65 2d 74 72 61 63 6b 2d |t-p mous|e-track-|
|000050f0| 75 70 2d 68 6f 6f 6b 20 | 6d 6f 75 73 65 2d 74 72 |up-hook |mouse-tr|
|00005100| 61 63 6b 2d 64 72 61 67 | 2d 75 70 2d 68 6f 6f 6b |ack-drag|-up-hook|
|00005110| 20 6d 6f 75 73 65 2d 74 | 72 61 63 6b 2d 63 6c 69 | mouse-t|rack-cli|
|00005120| 63 6b 2d 68 6f 6f 6b 20 | 6b 65 79 2d 70 72 65 73 |ck-hook |key-pres|
|00005130| 73 2d 65 76 65 6e 74 2d | 70 20 22 53 65 6c 65 63 |s-event-|p "Selec|
|00005140| 74 69 6f 6e 20 61 62 6f | 72 74 65 64 22 20 64 69 |tion abo|rted" di|
|00005150| 73 70 61 74 63 68 2d 65 | 76 65 6e 74 5d 20 38 20 |spatch-e|vent] 8 |
|00005160| 28 23 24 20 2e 20 31 38 | 30 36 32 29 20 22 65 22 |(#$ . 18|062) "e"|
|00005170| 5d 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |]).(byte|-code ".|
|00005180| c1 21 ac 82 c2 11 c1 0b | 42 13 c0 c4 21 ac 82 c5 |.!......|B...!...|
|00005190| 14 c4 0b 42 13 c0 c6 21 | ac 83 c2 16 06 c6 0b 42 |...B...!|.......B|
|000051a0| 13 c0 c7 21 ac 83 c2 16 | 07 c7 0b 42 13 c0 c8 21 |...!....|...B...!|
|000051b0| ac 83 c2 16 08 c8 0b 42 | 13 c0 c9 21 ac 83 c2 16 |.......B|...!....|
|000051c0| 09 c9 0b 42 13 c0 ca 21 | ac 83 c2 16 5c 6e ca 0b |...B...!|....\n..|
|000051d0| 42 13 c0 cb 21 ac 83 c2 | 16 0b cb 0b 42 13 c0 cc |B...!...|....B...|
|000051e0| 21 ac 83 c2 16 0c cc 0b | 42 13 c2 87 22 20 5b 62 |!.......|B..." [b|
|000051f0| 6f 75 6e 64 70 20 64 65 | 66 61 75 6c 74 2d 6d 6f |oundp de|fault-mo|
|00005200| 75 73 65 2d 74 72 61 63 | 6b 2d 74 79 70 65 20 6e |use-trac|k-type n|
|00005210| 69 6c 20 63 75 72 72 65 | 6e 74 2d 6c 6f 61 64 2d |il curre|nt-load-|
|00005220| 6c 69 73 74 20 64 65 66 | 61 75 6c 74 2d 6d 6f 75 |list def|ault-mou|
|00005230| 73 65 2d 74 72 61 63 6b | 2d 74 79 70 65 2d 6c 69 |se-track|-type-li|
|00005240| 73 74 20 28 63 68 61 72 | 20 77 6f 72 64 20 6c 69 |st (char| word li|
|00005250| 6e 65 29 20 64 65 66 61 | 75 6c 74 2d 6d 6f 75 73 |ne) defa|ult-mous|
|00005260| 65 2d 74 72 61 63 6b 2d | 77 69 6e 64 6f 77 20 64 |e-track-|window d|
|00005270| 65 66 61 75 6c 74 2d 6d | 6f 75 73 65 2d 74 72 61 |efault-m|ouse-tra|
|00005280| 63 6b 2d 65 78 74 65 6e | 74 20 64 65 66 61 75 6c |ck-exten|t defaul|
|00005290| 74 2d 6d 6f 75 73 65 2d | 74 72 61 63 6b 2d 61 64 |t-mouse-|track-ad|
|000052a0| 6a 75 73 74 20 64 65 66 | 61 75 6c 74 2d 6d 6f 75 |just def|ault-mou|
|000052b0| 73 65 2d 74 72 61 63 6b | 2d 6d 69 6e 2d 61 6e 63 |se-track|-min-anc|
|000052c0| 68 6f 72 20 64 65 66 61 | 75 6c 74 2d 6d 6f 75 73 |hor defa|ult-mous|
|000052d0| 65 2d 74 72 61 63 6b 2d | 6d 61 78 2d 61 6e 63 68 |e-track-|max-anch|
|000052e0| 6f 72 20 64 65 66 61 75 | 6c 74 2d 6d 6f 75 73 65 |or defau|lt-mouse|
|000052f0| 2d 74 72 61 63 6b 2d 72 | 65 73 75 6c 74 20 64 65 |-track-r|esult de|
|00005300| 66 61 75 6c 74 2d 6d 6f | 75 73 65 2d 74 72 61 63 |fault-mo|use-trac|
|00005310| 6b 2d 64 6f 77 6e 2d 65 | 76 65 6e 74 5d 20 32 29 |k-down-e|vent] 2)|
|00005320| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 64 65 66 61 |.(defali|as 'defa|
|00005330| 75 6c 74 2d 6d 6f 75 73 | 65 2d 74 72 61 63 6b 2d |ult-mous|e-track-|
|00005340| 73 65 74 2d 70 6f 69 6e | 74 2d 69 6e 2d 77 69 6e |set-poin|t-in-win|
|00005350| 64 6f 77 20 23 5b 28 65 | 76 65 6e 74 20 77 69 6e |dow #[(e|vent win|
|00005360| 64 6f 77 29 20 22 c0 09 | 21 3f ad ff c2 09 21 0b |dow) "..|!?....!.|
|00005370| 61 ab 97 c4 09 21 89 1d | 3f ae 85 c6 0d 0b 5c 22 |a....!..|?.....\"|
|00005380| 3f 3f ad 85 c7 09 21 88 | c8 29 87 c9 0b 21 1e 5c |??....!.|.)...!.\|
|00005390| 6e cb 09 21 1e 0c 0e 5c | 6e 41 40 1e 0d ce 0e 5c |n..!...\|nA@....\|
|000053a0| 6e 38 1e 0f 0e 0c 0e 0d | 57 ae 85 0e 0c 0e 0f 56 |n8......|W......V|
|000053b0| 3f ad bb d0 0b 21 88 0e | 0c 0e 0d 5a d1 20 5f 0e |?....!..|...Z. _.|
|000053c0| 0f 0e 0d 5a a5 1e 12 8a | d3 20 62 88 c6 d4 0e 12 |...Z....|. b.....|
|000053d0| 54 21 21 29 ad 97 d3 20 | 62 88 0e 12 79 88 d5 09 |T!!)... |b...y...|
|000053e0| 21 d6 0e 5c 6e 38 59 ab | 84 d7 20 62 88 c8 29 2c |!..\n8Y.|.. b..),|
|000053f0| 87 22 20 5b 65 76 65 6e | 74 2d 6f 76 65 72 2d 6d |." [even|t-over-m|
|00005400| 6f 64 65 6c 69 6e 65 2d | 70 20 65 76 65 6e 74 20 |odeline-|p event |
|00005410| 65 76 65 6e 74 2d 77 69 | 6e 64 6f 77 20 77 69 6e |event-wi|ndow win|
|00005420| 64 6f 77 20 65 76 65 6e | 74 2d 63 6c 6f 73 65 73 |dow even|t-closes|
|00005430| 74 2d 70 6f 69 6e 74 20 | 70 20 70 6f 73 2d 76 69 |t-point |p pos-vi|
|00005440| 73 69 62 6c 65 2d 69 6e | 2d 77 69 6e 64 6f 77 2d |sible-in|-window-|
|00005450| 70 20 6d 6f 75 73 65 2d | 73 65 74 2d 70 6f 69 6e |p mouse-|set-poin|
|00005460| 74 20 74 20 77 69 6e 64 | 6f 77 2d 70 69 78 65 6c |t t wind|ow-pixel|
|00005470| 2d 65 64 67 65 73 20 65 | 64 67 65 73 20 65 76 65 |-edges e|dges eve|
|00005480| 6e 74 2d 79 2d 70 69 78 | 65 6c 20 72 6f 77 20 74 |nt-y-pix|el row t|
|00005490| 65 78 74 2d 73 74 61 72 | 74 20 33 20 74 65 78 74 |ext-star|t 3 text|
|000054a0| 2d 65 6e 64 20 73 65 6c | 65 63 74 2d 77 69 6e 64 |-end sel|ect-wind|
|000054b0| 6f 77 20 77 69 6e 64 6f | 77 2d 68 65 69 67 68 74 |ow windo|w-height|
|000054c0| 20 6c 69 6e 65 20 77 69 | 6e 64 6f 77 2d 73 74 61 | line wi|ndow-sta|
|000054d0| 72 74 20 70 6f 69 6e 74 | 2d 61 74 2d 62 6f 6c 20 |rt point|-at-bol |
|000054e0| 65 76 65 6e 74 2d 78 2d | 70 69 78 65 6c 20 32 20 |event-x-|pixel 2 |
|000054f0| 70 6f 69 6e 74 2d 61 74 | 2d 65 6f 6c 5d 20 34 5d |point-at|-eol] 4]|
|00005500| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 64 65 66 |).(defal|ias 'def|
|00005510| 61 75 6c 74 2d 6d 6f 75 | 73 65 2d 74 72 61 63 6b |ault-mou|se-track|
|00005520| 2d 73 63 72 6f 6c 6c 2d | 61 6e 64 2d 73 65 74 2d |-scroll-|and-set-|
|00005530| 70 6f 69 6e 74 20 23 5b | 28 65 76 65 6e 74 20 77 |point #[|(event w|
|00005540| 69 6e 64 6f 77 29 20 22 | c0 09 21 88 c2 09 21 c3 |indow) "|..!...!.|
|00005550| 0c 21 c5 c6 21 1e 07 1e | 08 1e 09 ca 0e 08 0e 09 |.!..!...|........|
|00005560| 41 40 5a 21 ca 0e 08 cb | 0e 09 38 5a 21 57 ab 99 |A@Z!....|..8Z!W..|
|00005570| cc 0e 09 41 40 0e 08 5a | 0e 07 a5 5d 1e 0d ce cf |...A@..Z|...]....|
|00005580| d0 8f 88 d1 20 62 29 aa | d6 60 64 59 ae d1 d2 0c |.... b).|.`dY....|
|00005590| 21 ac 89 0e 08 cb 0e 09 | 38 57 ab 83 cc aa 8b 0e |!.......|8W......|
|000055a0| 08 cb 0e 09 38 5a 0e 07 | a5 54 d3 0c 21 1e 14 1e |....8Z..|.T..!...|
|000055b0| 0d ce d5 d6 8f 88 0e 14 | ab 8b d7 0e 14 21 ab 85 |........|.....!..|
|000055c0| 0e 14 62 aa 99 d8 20 62 | 88 d9 0e 0d 21 88 d7 60 |..b... b|....!..`|
|000055d0| 53 65 5d 21 ac 84 d9 da | 21 88 ce db dc 8f 2a 2b |Se]!....|!.....*+|
|000055e0| 87 22 20 5b 73 65 6c 65 | 63 74 2d 77 69 6e 64 6f |." [sele|ct-windo|
|000055f0| 77 20 77 69 6e 64 6f 77 | 20 77 69 6e 64 6f 77 2d |w window| window-|
|00005600| 70 69 78 65 6c 2d 65 64 | 67 65 73 20 65 76 65 6e |pixel-ed|ges even|
|00005610| 74 2d 79 2d 70 69 78 65 | 6c 20 65 76 65 6e 74 20 |t-y-pixe|l event |
|00005620| 66 61 63 65 2d 68 65 69 | 67 68 74 20 64 65 66 61 |face-hei|ght defa|
|00005630| 75 6c 74 20 68 65 69 67 | 68 74 20 72 6f 77 20 65 |ult heig|ht row e|
|00005640| 64 67 65 73 20 61 62 73 | 20 33 20 31 20 64 65 6c |dges abs| 3 1 del|
|00005650| 74 61 20 6e 69 6c 20 28 | 73 63 72 6f 6c 6c 2d 64 |ta nil (|scroll-d|
|00005660| 6f 77 6e 20 64 65 6c 74 | 61 29 20 28 28 65 72 72 |own delt|a) ((err|
|00005670| 6f 72 29 29 20 77 69 6e | 64 6f 77 2d 73 74 61 72 |or)) win|dow-star|
|00005680| 74 20 65 76 65 6e 74 2d | 6f 76 65 72 2d 6d 6f 64 |t event-|over-mod|
|00005690| 65 6c 69 6e 65 2d 70 20 | 65 76 65 6e 74 2d 63 6c |eline-p |event-cl|
|000056a0| 6f 73 65 73 74 2d 70 6f | 69 6e 74 20 63 6c 6f 73 |osest-po|int clos|
|000056b0| 65 2d 70 6f 73 20 28 73 | 63 72 6f 6c 6c 2d 75 70 |e-pos (s|croll-up|
|000056c0| 20 64 65 6c 74 61 29 20 | 28 28 65 72 72 6f 72 29 | delta) |((error)|
|000056d0| 29 20 70 6f 73 2d 76 69 | 73 69 62 6c 65 2d 69 6e |) pos-vi|sible-in|
|000056e0| 2d 77 69 6e 64 6f 77 2d | 70 20 77 69 6e 64 6f 77 |-window-|p window|
|000056f0| 2d 65 6e 64 20 76 65 72 | 74 69 63 61 6c 2d 6d 6f |-end ver|tical-mo|
|00005700| 74 69 6f 6e 20 2d 31 20 | 28 62 61 63 6b 77 61 72 |tion -1 |(backwar|
|00005710| 64 2d 63 68 61 72 20 31 | 29 20 28 28 65 72 72 6f |d-char 1|) ((erro|
|00005720| 72 20 28 65 6e 64 2d 6f | 66 2d 6c 69 6e 65 20 6e |r (end-o|f-line n|
|00005730| 69 6c 29 29 29 5d 20 35 | 5d 29 0a 28 62 79 74 65 |il)))] 5|]).(byte|
|00005740| 2d 63 6f 64 65 20 22 c0 | c1 21 ac 82 c2 11 c1 0b |-code ".|.!......|
|00005750| 42 13 c2 87 22 20 5b 62 | 6f 75 6e 64 70 20 64 65 |B..." [b|oundp de|
|00005760| 66 61 75 6c 74 2d 6d 6f | 75 73 65 2d 74 72 61 63 |fault-mo|use-trac|
|00005770| 6b 2d 70 72 65 76 69 6f | 75 73 2d 70 6f 69 6e 74 |k-previo|us-point|
|00005780| 20 6e 69 6c 20 63 75 72 | 72 65 6e 74 2d 6c 6f 61 | nil cur|rent-loa|
|00005790| 64 2d 6c 69 73 74 5d 20 | 32 29 0a 28 64 65 66 61 |d-list] |2).(defa|
|000057a0| 6c 69 61 73 20 27 64 65 | 66 61 75 6c 74 2d 6d 6f |lias 'de|fault-mo|
|000057b0| 75 73 65 2d 74 72 61 63 | 6b 2d 73 65 74 2d 70 6f |use-trac|k-set-po|
|000057c0| 69 6e 74 20 23 5b 28 65 | 76 65 6e 74 20 77 69 6e |int #[(e|vent win|
|000057d0| 64 6f 77 29 20 22 c0 09 | 5c 6e 5c 22 3f ad 84 c3 |dow) "..|\n\"?...|
|000057e0| 09 5c 6e 5c 22 87 22 20 | 5b 64 65 66 61 75 6c 74 |.\n\"." |[default|
|000057f0| 2d 6d 6f 75 73 65 2d 74 | 72 61 63 6b 2d 73 65 74 |-mouse-t|rack-set|
|00005800| 2d 70 6f 69 6e 74 2d 69 | 6e 2d 77 69 6e 64 6f 77 |-point-i|n-window|
|00005810| 20 65 76 65 6e 74 20 77 | 69 6e 64 6f 77 20 64 65 | event w|indow de|
|00005820| 66 61 75 6c 74 2d 6d 6f | 75 73 65 2d 74 72 61 63 |fault-mo|use-trac|
|00005830| 6b 2d 73 63 72 6f 6c 6c | 2d 61 6e 64 2d 73 65 74 |k-scroll|-and-set|
|00005840| 2d 70 6f 69 6e 74 5d 20 | 33 5d 29 0a 28 64 65 66 |-point] |3]).(def|
|00005850| 61 6c 69 61 73 20 27 64 | 65 66 61 75 6c 74 2d 6d |alias 'd|efault-m|
|00005860| 6f 75 73 65 2d 74 72 61 | 63 6b 2d 62 65 67 69 6e |ouse-tra|ck-begin|
|00005870| 6e 69 6e 67 2d 6f 66 2d | 77 6f 72 64 20 23 5b 28 |ning-of-|word #[(|
|00005880| 73 79 6d 62 6f 6c 70 29 | 20 22 08 c1 61 ab 83 c2 |symbolp)| "..a...|
|00005890| aa 87 08 ac 83 c3 aa 81 | c4 c5 1e 06 1e 07 6f ab |........|......o.|
|000058a0| 83 c8 aa bb c9 0e 07 21 | ab 9f ca 20 88 6f ac 8b |.......!|... .o..|
|000058b0| c9 0e 07 21 ab 85 ca 20 | 88 aa 72 6f ab 87 c9 0e |...!... |..ro....|
|000058c0| 07 21 3f ad 9a c8 75 aa | 96 c9 0e 06 21 ad 90 ca |.!?...u.|....!...|
|000058d0| 20 88 c9 0e 06 21 ab 85 | ca 20 88 aa 75 c8 75 2a | ....!..|. ..u.u*|
|000058e0| 87 22 20 5b 73 79 6d 62 | 6f 6c 70 20 74 20 22 5c |." [symb|olp t "\|
|000058f0| 5c 77 5c 5c 7c 5c 5c 73 | 5f 5c 5c 7c 5c 5c 73 27 |\w\\|\\s|_\\|\\s'|
|00005900| 22 20 22 5c 5c 77 22 20 | 22 5b 5e 20 09 5c 6e 5d |" "\\w" |"[^ .\n]|
|00005910| 22 20 22 5b 20 09 5d 22 | 20 77 68 69 74 65 2d 73 |" "[ .]"| white-s|
|00005920| 70 61 63 65 20 77 6f 72 | 64 2d 63 6f 6e 73 74 69 |pace wor|d-consti|
|00005930| 74 75 65 6e 74 20 6e 69 | 6c 20 6c 6f 6f 6b 69 6e |tuent ni|l lookin|
|00005940| 67 2d 61 74 20 62 61 63 | 6b 77 61 72 64 2d 63 68 |g-at bac|kward-ch|
|00005950| 61 72 5d 20 32 5d 29 0a | 28 62 79 74 65 2d 63 6f |ar] 2]).|(byte-co|
|00005960| 64 65 20 22 c0 c1 4e c2 | 73 ac 85 c3 c4 c0 5c 22 |de "..N.|s.....\"|
|00005970| 88 c5 c0 c1 c6 23 87 22 | 20 5b 64 65 66 61 75 6c |.....#."| [defaul|
|00005980| 74 2d 6d 6f 75 73 65 2d | 74 72 61 63 6b 2d 62 65 |t-mouse-|track-be|
|00005990| 67 69 6e 6e 69 6e 67 2d | 6f 66 2d 77 6f 72 64 20 |ginning-|of-word |
|000059a0| 62 79 74 65 2d 6f 70 74 | 69 6d 69 7a 65 72 20 28 |byte-opt|imizer (|
|000059b0| 6e 69 6c 20 62 79 74 65 | 2d 63 6f 6d 70 69 6c 65 |nil byte|-compile|
|000059c0| 2d 69 6e 6c 69 6e 65 2d | 65 78 70 61 6e 64 29 20 |-inline-|expand) |
|000059d0| 65 72 72 6f 72 20 22 25 | 73 20 61 6c 72 65 61 64 |error "%|s alread|
|000059e0| 79 20 68 61 73 20 61 20 | 62 79 74 65 2d 6f 70 74 |y has a |byte-opt|
|000059f0| 69 6d 69 7a 65 72 2c 20 | 63 61 6e 27 74 20 6d 61 |imizer, |can't ma|
|00005a00| 6b 65 20 69 74 20 69 6e | 6c 69 6e 65 22 20 70 75 |ke it in|line" pu|
|00005a10| 74 20 62 79 74 65 2d 63 | 6f 6d 70 69 6c 65 2d 69 |t byte-c|ompile-i|
|00005a20| 6e 6c 69 6e 65 2d 65 78 | 70 61 6e 64 5d 20 34 29 |nline-ex|pand] 4)|
|00005a30| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 64 65 66 61 |.(defali|as 'defa|
|00005a40| 75 6c 74 2d 6d 6f 75 73 | 65 2d 74 72 61 63 6b 2d |ult-mous|e-track-|
|00005a50| 65 6e 64 2d 6f 66 2d 77 | 6f 72 64 20 23 5b 28 73 |end-of-w|ord #[(s|
|00005a60| 79 6d 62 6f 6c 70 29 20 | 22 08 c1 61 ab 83 c2 aa |ymbolp) |"..a....|
|00005a70| 87 08 ac 83 c3 aa 81 c4 | c5 1e 06 1e 07 c8 0e 07 |........|........|
|00005a80| 21 ab 8b c8 0e 07 21 ad | 96 c9 75 88 aa 75 c8 0e |!.....!.|..u..u..|
|00005a90| 06 21 ad 8b c8 0e 06 21 | ad 85 c9 75 88 aa 75 2a |.!.....!|...u..u*|
|00005aa0| 87 22 20 5b 73 79 6d 62 | 6f 6c 70 20 74 20 22 5c |." [symb|olp t "\|
|00005ab0| 5c 77 5c 5c 7c 5c 5c 73 | 5f 5c 5c 7c 5c 5c 73 27 |\w\\|\\s|_\\|\\s'|
|00005ac0| 22 20 22 5c 5c 77 22 20 | 22 5b 5e 20 09 5c 6e 5d |" "\\w" |"[^ .\n]|
|00005ad0| 22 20 22 5b 20 09 5d 22 | 20 77 68 69 74 65 2d 73 |" "[ .]"| white-s|
|00005ae0| 70 61 63 65 20 77 6f 72 | 64 2d 63 6f 6e 73 74 69 |pace wor|d-consti|
|00005af0| 74 75 65 6e 74 20 6c 6f | 6f 6b 69 6e 67 2d 61 74 |tuent lo|oking-at|
|00005b00| 20 6e 69 6c 5d 20 32 5d | 29 0a 28 64 65 66 61 6c | nil] 2]|).(defal|
|00005b10| 69 61 73 20 27 64 65 66 | 61 75 6c 74 2d 6d 6f 75 |ias 'def|ault-mou|
|00005b20| 73 65 2d 74 72 61 63 6b | 2d 6e 6f 72 6d 61 6c 69 |se-track|-normali|
|00005b30| 7a 65 2d 70 6f 69 6e 74 | 20 23 5b 28 74 79 70 65 |ze-point| #[(type|
|00005b40| 20 66 6f 72 77 61 72 64 | 70 29 20 22 08 c1 61 ab | forward|p) "..a.|
|00005b50| 85 c2 c3 c4 8f 87 08 c5 | 61 ab 8c 0e 06 ab 83 c2 |........|a.......|
|00005b60| 7f 87 c7 79 88 c2 87 08 | c8 61 ad 89 0e 06 ab 83 |...y....|.a......|
|00005b70| c9 20 87 ca 20 87 22 20 | 5b 74 79 70 65 20 77 6f |. .. ." |[type wo|
|00005b80| 72 64 20 6e 69 6c 20 28 | 62 79 74 65 2d 63 6f 64 |rd nil (|byte-cod|
|00005b90| 65 20 22 60 66 7a 10 09 | ab 97 08 c2 55 ab 86 c3 |e "`fz..|....U...|
|00005ba0| 60 c4 5c 22 62 87 08 c5 | 55 ab 83 c4 75 87 c6 c7 |`.\"b...|U...u...|
|00005bb0| 21 87 08 c5 55 ab 87 c3 | 60 54 c8 5c 22 62 87 c7 |!...U...|`T.\"b..|
|00005bc0| 1e 09 c7 89 61 ab 83 ca | aa 88 0e 09 ac 83 cb aa |....a...|........|
|00005bd0| 81 cc cd 1e 0e 1e 0f 6f | ab 83 d0 aa bb d1 0e 0f |.......o|........|
|00005be0| 21 ab 9f d2 20 88 6f ac | 8b d1 0e 0f 21 ab 85 d2 |!... .o.|....!...|
|00005bf0| 20 88 aa 72 6f ab 87 d1 | 0e 0f 21 3f ad 9a d0 75 | ..ro...|..!?...u|
|00005c00| aa 96 d1 0e 0e 21 ad 90 | d2 20 88 d1 0e 0e 21 ab |.....!..|. ....!.|
|00005c10| 85 d2 20 88 aa 75 d0 75 | 2b 87 22 20 5b 74 79 70 |.. ..u.u|+." [typ|
|00005c20| 65 20 66 6f 72 77 61 72 | 64 70 20 3f 5c 28 20 73 |e forwar|dp ?\( s|
|00005c30| 63 61 6e 2d 73 65 78 70 | 73 20 31 20 3f 5c 29 20 |can-sexp|s 1 ?\) |
|00005c40| 64 65 66 61 75 6c 74 2d | 6d 6f 75 73 65 2d 74 72 |default-|mouse-tr|
|00005c50| 61 63 6b 2d 65 6e 64 2d | 6f 66 2d 77 6f 72 64 20 |ack-end-|of-word |
|00005c60| 74 20 2d 31 20 73 79 6d | 62 6f 6c 70 20 22 5c 5c |t -1 sym|bolp "\\|
|00005c70| 77 5c 5c 7c 5c 5c 73 5f | 5c 5c 7c 5c 5c 73 27 22 |w\\|\\s_|\\|\\s'"|
|00005c80| 20 22 5c 5c 77 22 20 22 | 5b 5e 20 09 5c 6e 5d 22 | "\\w" "|[^ .\n]"|
|00005c90| 20 22 5b 20 09 5d 22 20 | 77 68 69 74 65 2d 73 70 | "[ .]" |white-sp|
|00005ca0| 61 63 65 20 77 6f 72 64 | 2d 63 6f 6e 73 74 69 74 |ace word|-constit|
|00005cb0| 75 65 6e 74 20 6e 69 6c | 20 6c 6f 6f 6b 69 6e 67 |uent nil| looking|
|00005cc0| 2d 61 74 20 62 61 63 6b | 77 61 72 64 2d 63 68 61 |-at back|ward-cha|
|00005cd0| 72 5d 20 33 29 20 28 28 | 65 72 72 6f 72 29 29 20 |r] 3) ((|error)) |
|00005ce0| 6c 69 6e 65 20 66 6f 72 | 77 61 72 64 70 20 30 20 |line for|wardp 0 |
|00005cf0| 62 75 66 66 65 72 20 65 | 6e 64 2d 6f 66 2d 62 75 |buffer e|nd-of-bu|
|00005d00| 66 66 65 72 20 62 65 67 | 69 6e 6e 69 6e 67 2d 6f |ffer beg|inning-o|
|00005d10| 66 2d 62 75 66 66 65 72 | 5d 20 33 5d 29 0a 28 64 |f-buffer|] 3]).(d|
|00005d20| 65 66 61 6c 69 61 73 20 | 27 64 65 66 61 75 6c 74 |efalias |'default|
|00005d30| 2d 6d 6f 75 73 65 2d 74 | 72 61 63 6b 2d 6e 65 78 |-mouse-t|rack-nex|
|00005d40| 74 2d 6d 6f 76 65 20 23 | 5b 28 6d 69 6e 2d 61 6e |t-move #|[(min-an|
|00005d50| 63 68 6f 72 20 6d 61 78 | 2d 61 6e 63 68 6f 72 20 |chor max|-anchor |
|00005d60| 65 78 74 65 6e 74 29 20 | 22 60 08 58 ab 83 09 aa |extent) |"`.X....|
|00005d70| 81 08 1a 0b 0c 60 5c 6e | 56 5c 22 88 0d 3a ab 87 |.....`\n|V\"..:..|
|00005d80| c6 5c 6e 60 0d 23 aa 94 | 0d ad 91 5c 6e 60 58 ab |.\n`.#..|...\n`X.|
|00005d90| 87 c7 0d 5c 6e 60 23 aa | 85 c7 0d 60 5c 6e 23 29 |...\n`#.|...`\n#)|
|00005da0| 87 22 20 5b 6d 69 6e 2d | 61 6e 63 68 6f 72 20 6d |." [min-|anchor m|
|00005db0| 61 78 2d 61 6e 63 68 6f | 72 20 61 6e 63 68 6f 72 |ax-ancho|r anchor|
|00005dc0| 20 64 65 66 61 75 6c 74 | 2d 6d 6f 75 73 65 2d 74 | default|-mouse-t|
|00005dd0| 72 61 63 6b 2d 6e 6f 72 | 6d 61 6c 69 7a 65 2d 70 |rack-nor|malize-p|
|00005de0| 6f 69 6e 74 2d 66 75 6e | 63 74 69 6f 6e 20 64 65 |oint-fun|ction de|
|00005df0| 66 61 75 6c 74 2d 6d 6f | 75 73 65 2d 74 72 61 63 |fault-mo|use-trac|
|00005e00| 6b 2d 74 79 70 65 20 65 | 78 74 65 6e 74 20 64 65 |k-type e|xtent de|
|00005e10| 66 61 75 6c 74 2d 6d 6f | 75 73 65 2d 74 72 61 63 |fault-mo|use-trac|
|00005e20| 6b 2d 6e 65 78 74 2d 6d | 6f 76 65 2d 72 65 63 74 |k-next-m|ove-rect|
|00005e30| 20 73 65 74 2d 65 78 74 | 65 6e 74 2d 65 6e 64 70 | set-ext|ent-endp|
|00005e40| 6f 69 6e 74 73 5d 20 34 | 5d 29 0a 28 64 65 66 61 |oints] 4|]).(defa|
|00005e50| 6c 69 61 73 20 27 64 65 | 66 61 75 6c 74 2d 6d 6f |lias 'de|fault-mo|
|00005e60| 75 73 65 2d 74 72 61 63 | 6b 2d 6e 65 78 74 2d 6d |use-trac|k-next-m|
|00005e70| 6f 76 65 2d 72 65 63 74 | 20 23 5b 28 73 74 61 72 |ove-rect| #[(star|
|00005e80| 74 20 65 6e 64 20 65 78 | 74 65 6e 74 73 20 26 6f |t end ex|tents &o|
|00005e90| 70 74 69 6f 6e 61 6c 20 | 70 61 64 2d 70 29 20 22 |ptional |pad-p) "|
|00005ea0| 08 09 57 ab 87 09 1a 08 | 11 5c 6e 10 29 09 08 55 |..W.....|.\n.)..U|
|00005eb0| ab 91 c3 c4 0d 41 5c 22 | 88 0d c6 a1 88 c7 0d 40 |.....A\"|.......@|
|00005ec0| 09 89 23 87 c6 0d c6 89 | 89 89 1e 08 1e 09 1e 5c |..#.....|.......\|
|00005ed0| 6e 1e 0b 1e 0c 1e 0d 8a | 8c 08 62 88 69 16 5c 6e |n.......|..b.i.\n|
|00005ee0| 09 62 88 69 16 0b 0e 5c | 6e 0e 0b 57 ab 9b 0e 0b |.b.i...\|n..W....|
|00005ef0| 1a 0e 5c 6e 16 0b 5c 6e | 16 5c 6e 09 0e 5c 6e 0e |..\n..\n|.\n..\n.|
|00005f00| 0b 5a 5a 11 08 0e 5c 6e | 0e 0b 5a 5c 5c 10 29 08 |.ZZ...\n|..Z\\.).|
|00005f10| 64 5e 10 ce 79 88 60 08 | 7d 88 09 62 88 0e 0c ab |d^..y.`.|}..b....|
|00005f20| af 6d ac ac 60 16 08 cf | 0e 5c 6e 0e 10 5c 22 88 |.m..`...|.\n..\".|
|00005f30| c7 0e 0c 40 0e 08 60 23 | 88 d1 79 88 6d ac 87 cf |...@..`#|..y.m...|
|00005f40| 0e 0b 0e 10 5c 22 88 0e | 0c 16 09 0e 0c 41 89 16 |....\"..|.....A..|
|00005f50| 0c ac 51 0e 0c ab 8c c3 | c4 0e 0c 5c 22 88 0e 09 |..Q.....|...\"...|
|00005f60| c6 a1 aa c8 6d 3f ad c4 | 6d 3f ad c0 60 16 08 cf |....m?..|m?..`...|
|00005f70| 0e 5c 6e 0e 10 5c 22 88 | d2 0e 08 60 5c 22 1e 13 |.\n..\".|...`\"..|
|00005f80| d4 0e 13 d5 0d 40 21 5c | 22 88 d6 0e 13 d7 0d 40 |.....@!\|"......@|
|00005f90| 21 5c 22 88 0e 09 0e 13 | c6 42 a1 88 0e 09 41 16 |!\".....|.B....A.|
|00005fa0| 09 29 d1 79 88 6d ac 45 | cf 0e 0b 0e 10 5c 22 88 |.).y.m.E|.....\".|
|00005fb0| aa 3c 2e 08 87 22 20 5b | 65 6e 64 20 73 74 61 72 |.<..." [|end star|
|00005fc0| 74 20 74 6d 70 20 6d 61 | 70 63 61 72 20 64 65 6c |t tmp ma|pcar del|
|00005fd0| 65 74 65 2d 65 78 74 65 | 6e 74 20 65 78 74 65 6e |ete-exte|nt exten|
|00005fe0| 74 73 20 6e 69 6c 20 73 | 65 74 2d 65 78 74 65 6e |ts nil s|et-exten|
|00005ff0| 74 2d 65 6e 64 70 6f 69 | 6e 74 73 20 70 20 6c 61 |t-endpoi|nts p la|
|00006000| 73 74 20 72 69 67 68 74 | 20 6c 65 66 74 20 72 65 |st right| left re|
|00006010| 73 74 20 69 6e 64 65 6e | 74 2d 74 61 62 73 2d 6d |st inden|t-tabs-m|
|00006020| 6f 64 65 20 30 20 6d 6f | 76 65 2d 74 6f 2d 63 6f |ode 0 mo|ve-to-co|
|00006030| 6c 75 6d 6e 20 70 61 64 | 2d 70 20 31 20 6d 61 6b |lumn pad|-p 1 mak|
|00006040| 65 2d 65 78 74 65 6e 74 | 20 65 20 73 65 74 2d 65 |e-extent| e set-e|
|00006050| 78 74 65 6e 74 2d 66 61 | 63 65 20 65 78 74 65 6e |xtent-fa|ce exten|
|00006060| 74 2d 66 61 63 65 20 73 | 65 74 2d 65 78 74 65 6e |t-face s|et-exten|
|00006070| 74 2d 70 72 69 6f 72 69 | 74 79 20 65 78 74 65 6e |t-priori|ty exten|
|00006080| 74 2d 70 72 69 6f 72 69 | 74 79 5d 20 37 5d 29 0a |t-priori|ty] 7]).|
|00006090| 28 64 65 66 61 6c 69 61 | 73 20 27 64 65 66 61 75 |(defalia|s 'defau|
|000060a0| 6c 74 2d 6d 6f 75 73 65 | 2d 74 72 61 63 6b 2d 68 |lt-mouse|-track-h|
|000060b0| 61 73 2d 73 65 6c 65 63 | 74 69 6f 6e 2d 70 20 23 |as-selec|tion-p #|
|000060c0| 5b 28 62 75 66 66 65 72 | 29 20 22 c0 c1 20 21 c2 |[(buffer|) ".. !.|
|000060d0| 61 ab 84 c3 20 ad 91 c4 | 0d 21 ad 8c c6 0d 21 3f |a... ...|.!....!?|
|000060e0| ad 86 0e 07 c8 0d 21 61 | 87 22 20 5b 63 6f 6e 73 |......!a|." [cons|
|000060f0| 6f 6c 65 2d 74 79 70 65 | 20 73 65 6c 65 63 74 65 |ole-type| selecte|
|00006100| 64 2d 63 6f 6e 73 6f 6c | 65 20 78 20 78 2d 73 65 |d-consol|e x x-se|
|00006110| 6c 65 63 74 69 6f 6e 2d | 6f 77 6e 65 72 2d 70 20 |lection-|owner-p |
|00006120| 65 78 74 65 6e 74 2d 6c | 69 76 65 2d 70 20 70 72 |extent-l|ive-p pr|
|00006130| 69 6d 61 72 79 2d 73 65 | 6c 65 63 74 69 6f 6e 2d |imary-se|lection-|
|00006140| 65 78 74 65 6e 74 20 65 | 78 74 65 6e 74 2d 64 65 |extent e|xtent-de|
|00006150| 74 61 63 68 65 64 2d 70 | 20 62 75 66 66 65 72 20 |tached-p| buffer |
|00006160| 65 78 74 65 6e 74 2d 6f | 62 6a 65 63 74 5d 20 33 |extent-o|bject] 3|
|00006170| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 64 65 |]).(defa|lias 'de|
|00006180| 66 61 75 6c 74 2d 6d 6f | 75 73 65 2d 74 72 61 63 |fault-mo|use-trac|
|00006190| 6b 2d 61 6e 63 68 6f 72 | 20 23 5b 28 61 64 6a 75 |k-anchor| #[(adju|
|000061a0| 73 74 20 70 72 65 76 69 | 6f 75 73 2d 70 6f 69 6e |st previ|ous-poin|
|000061b0| 74 29 20 22 08 ab b4 c1 | 70 21 ab ac c2 0b 21 c4 |t) "....|p!....!.|
|000061c0| 0b 21 1d 1e 06 60 0e 06 | 57 ab 83 0d aa 98 60 0d |.!...`..|W.....`.|
|000061d0| 56 ab 84 0e 06 aa 8f 60 | 0e 06 5a 0d 60 5a 56 ab |V......`|..Z.`ZV.|
|000061e0| 84 0e 06 aa 81 0d 2a 87 | 0e 07 87 60 87 22 20 5b |......*.|...`." [|
|000061f0| 61 64 6a 75 73 74 20 64 | 65 66 61 75 6c 74 2d 6d |adjust d|efault-m|
|00006200| 6f 75 73 65 2d 74 72 61 | 63 6b 2d 68 61 73 2d 73 |ouse-tra|ck-has-s|
|00006210| 65 6c 65 63 74 69 6f 6e | 2d 70 20 65 78 74 65 6e |election|-p exten|
|00006220| 74 2d 73 74 61 72 74 2d | 70 6f 73 69 74 69 6f 6e |t-start-|position|
|00006230| 20 70 72 69 6d 61 72 79 | 2d 73 65 6c 65 63 74 69 | primary|-selecti|
|00006240| 6f 6e 2d 65 78 74 65 6e | 74 20 65 78 74 65 6e 74 |on-exten|t extent|
|00006250| 2d 65 6e 64 2d 70 6f 73 | 69 74 69 6f 6e 20 65 6e |-end-pos|ition en|
|00006260| 64 20 73 74 61 72 74 20 | 70 72 65 76 69 6f 75 73 |d start |previous|
|00006270| 2d 70 6f 69 6e 74 5d 20 | 33 5d 29 0a 28 64 65 66 |-point] |3]).(def|
|00006280| 61 6c 69 61 73 20 27 64 | 65 66 61 75 6c 74 2d 6d |alias 'd|efault-m|
|00006290| 6f 75 73 65 2d 74 72 61 | 63 6b 2d 6d 61 79 62 65 |ouse-tra|ck-maybe|
|000062a0| 2d 6f 77 6e 2d 73 65 6c | 65 63 74 69 6f 6e 20 23 |-own-sel|ection #|
|000062b0| 5b 28 70 61 69 72 20 74 | 79 70 65 29 20 22 08 40 |[(pair t|ype) ".@|
|000062c0| 08 41 19 89 1a 09 55 ac | 8c c3 60 5c 6e 55 ab 83 |.A....U.|..`\nU..|
|000062d0| 09 aa 81 5c 6e 21 88 0c | ab 8f 5c 6e 09 55 ac df |...\n!..|..\n.U..|
|000062e0| c5 c6 c7 5c 22 88 c8 20 | 88 aa d5 c9 ca 20 21 cb |...\".. |..... !.|
|000062f0| 61 ab cd 5c 6e 09 55 ab | 87 cc 0e 0d 21 88 aa c1 |a..\n.U.|....!...|
|00006300| 0e 0e 3a ab ac 0e 0e 1e | 0f 8a d0 d1 21 71 88 0e |..:.....|....!q..|
|00006310| 0f ab 91 d2 0e 0f 40 21 | d3 b1 02 88 0e 0f 41 89 |......@!|......A.|
|00006320| 16 0f ac 6f d4 65 64 7b | 21 88 d5 70 21 88 2a aa |...o.ed{|!..p!.*.|
|00006330| 90 d4 d6 20 5c 6e d7 93 | d6 20 09 d7 93 42 0e 0d |... \n..|. ...B..|
|00006340| 5c 22 88 c9 ca 20 21 cb | 61 ad 8b 5c 6e 09 55 3f |\"... !.|a..\n.U?|
|00006350| ad 85 d8 5c 6e 09 7b 21 | 2a 87 22 20 5b 70 61 69 |...\n.{!|*." [pai|
|00006360| 72 20 65 6e 64 20 73 74 | 61 72 74 20 70 75 73 68 |r end st|art push|
|00006370| 2d 6d 61 72 6b 20 7a 6d | 61 63 73 2d 72 65 67 69 |-mark zm|acs-regi|
|00006380| 6f 6e 73 20 73 69 74 2d | 66 6f 72 20 30 2e 31 35 |ons sit-|for 0.15|
|00006390| 20 74 20 7a 6d 61 63 73 | 2d 61 63 74 69 76 61 74 | t zmacs|-activat|
|000063a0| 65 2d 72 65 67 69 6f 6e | 20 63 6f 6e 73 6f 6c 65 |e-region| console|
|000063b0| 2d 74 79 70 65 20 73 65 | 6c 65 63 74 65 64 2d 63 |-type se|lected-c|
|000063c0| 6f 6e 73 6f 6c 65 20 78 | 20 78 2d 64 69 73 6f 77 |onsole x| x-disow|
|000063d0| 6e 2d 73 65 6c 65 63 74 | 69 6f 6e 20 74 79 70 65 |n-select|ion type|
|000063e0| 20 64 65 66 61 75 6c 74 | 2d 6d 6f 75 73 65 2d 74 | default|-mouse-t|
|000063f0| 72 61 63 6b 2d 65 78 74 | 65 6e 74 20 72 20 67 65 |rack-ext|ent r ge|
+--------+-------------------------+-------------------------+--------+--------+